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ABSTRACT 


The main objective of this project is to find the original symmetric presen- 
tations of some very important finite groups and to give our constructions of some of 
these groups. We have found the Mathieu sporadic group Mj,, HS x Ds, where HS 
is the sporadic group Higman-Sim group, the projective special unitary group U(3,5) 
and the projective special linear group L2(149) as homomorphic images of the mono- 
mial progenitors 11*4 :,, (5 : 4), 5*° :m S5 and 149*? :,, D37. We have also discovered 
DY 4 AGS 5, 0” Ae (OP a). DP Be GRO 2 Sa Cy, Gag? 2 PGE. 7), 
2? e (Sg : Sg), PGL(2,19), ((As : As x As) : De), 6 © (U4(3) : 2), 2¢ PGL(2,13), Sz, 
PGL(2,8), PSL(2,19), 2 x PGL(2,81), 2° : (Sg x As), 2°: Sg x D3, U(4,3), 3* : Su, 
3° : De, 2¢ (PGL(2,7) : PSL(2,7)), 27 : (Ss : $5) and 2° : (PSL3(4) : 2) as homomor- 
phic images of the permutation progenitors 2*8 : (2 x 4: 2), 2*!© : (2x 4: Cy x Cs), 
2*9 : (93 x S3), 2*° : (93 x As), 2*° : (3? : 23) and 2*° : (3° : As). We have also con- 
structed 2+ : 93 x Cz, 24: As, (2° : S4), 2° : $3 x $3, 3° : S4 x C2, Sg, My, and U(3,5) by 
using the technique of double coset enumeration. We have determined the isomorphism 
types of the most of the images mentioned in this thesis. We demonstrate our work for 
the following examples: 3+ : (3? « 2) x 2, 29 : PGL(2,7), 2°S¢, (5* : (Da x 93)), and 
33° PSL(2, 19) x 2. 
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Introduction 


Group theory is the significant topic in mathematics and abstract algebra. 
Group theory allows to study the algebraic structures known as group. In this thesis, 
we show symmetric presentations of finite groups. Also, we are interested to show 
some of groups which we could get them from our progenitors through our research 
for example Mathieu groups, alternating groups, linear groups, symmetric groups and 
Unitary groups. We show shortly in the following some of the concepts which we will 
discuss them in this thesis. In chapter 1, we give some important definitions and 
theorem which are used in this thesis. In chapter 2, we provide some of relations 
lemma which help us to find relations to factor our progenitors m” : N by them. Thus, 
we apply the factoring lemma, the famous lemma, or the first order relation lemma to 
factor our progenitors. In chapter 3, we describe character table construction. So, 
we build table of D4, and we will induce a linear character of a proper subgroups. In 
chapter 4, we will see how we can compute an extension problem to find isomorphic 
type of our group by looking to the composition factor of group. In chapter 5, we 
will show progenitors and their homomorphic images. In chapter 6, we give transitive 
group on 9 letters with some of their homomorphic images. In chapter 7, we clarify 
how we can induce and verify a linear character of the monomial progenitors. Also, 
we verify the monomial representation and construct a permutation representation by 
hand. Moreover, we find a representation of the monomial progenitor. In chapter 8, 
we will demonstrate the technique of double coset enumeration and we will construct 
Caylay diagram of double coset enumeration. In chapter 9, we apply the technique 
of double coset enumeration over maximal subgroup. So, we will show double coset 
enumeration of MM), over maximal subgroup $5 and double coset enumeration of U(3,5) 


over maximal subgroup A7. 


Chapter 1 


Group Theory Preliminaries 


1.1 Definitions 


Definition 1.1. A group G (G, *) is a nonempty collection of elements with an asso- 


ciative operation *, such that: 
e there exists an identity element, e€ G such thatexa=a*e for alla € G; 
e for everya € G, there exists an element b € G such thataxb=e=bxa. [Rot95] 


Definition 1.2. For group G, a subgroup S' of G is a nonempty subset where s € G 
implies s-' € G and s,t € G imply st € G. We denote subgroup S of G as S < G. 
[Rot95] 


Definition 1.3. Let H be a subgroup of group G. H is a proper subgroup of G if 
H#G. We denote this as H < G. [Rot95] 


Definition 1.4. Let G be a group and H < G. H is a maximal subgroup of G if 
there is no normal subgroup N <G such that H < N <G. [Rot95] 


Definition 1.5. A symmetric group, Sx, is the group of all permutations of X, 
where X EN. Sx is a group under compositions. [Rot95] 


Definition 1.6. If X is a nonempty set, a permutation of X is a bijection d: X — 
X. [Rot95] 


Definition 1.7. [fx € X and ¢ € Sx, then ¢ fixes x if ¢(x) = x and ¢ moves x if 
o(x) # a. [Rot95] 


Definition 1.8. For permutations a,8 € Sx, a and 6 are disjoint if every element 


moved by one permutation is fixed by the other. Precisely, 


if a(x) 4 x, then B(a) =a and if a(y) = y, then B(y) # y. [Rot95/ 


Definition 1.9. A permutation which interchanges a pair of elements is a transposi- 


tion. /Rot95/ 
Definition 1.10. In group G, if a,b€ G, a and b commute if a*b=bxa. [Rot95] 


Definition 1.11. A group G is abelian if every pair of elements in G commutes with 


one another. [Rot95] 


Definition 1.12. Let G be a group. The order of G is the number of elements contained 
in G. We denote the order of G by |G|. [Rot95/ 


Definition 1.13. Let G be a group. G is simple if the only normal subgroups of G are 
1 and G. [Rot95] 


Definition 1.14. Let p be prime. IfG = Z,)xZ,x---xZp, then we say G is elementary 
abelian. /Rot95/ 


Definition 1.15. Let (G,*) and (H,0) be groups. The function ¢@: G > H is a 
homomorphism if ¢(a « b) = (a) o ¢(b), for all a,b € G. An isomorphism is a 
bijective homomorphism. We say G is isomorphic to H, G = H, if there is exists an 


isomorphism f :G— H. [Rot95] 


Definition 1.16. Let f : G— H be a homomorphism. The kernel of a homomor- 
phism is the set {x € G| f(x) = 1}, where 1 is the identity in H. We denote the kernel 
of f as ker f . [Rot95/ 


Definition 1.17. Let X be a nonempty subset of a group G. Let w € G where w = 


€1 ,€2 


xyias... ao, with a; © X ande; = +1. We say that w is a word on X. [Rot95] 


Definition 1.18. Let G be a group such that K < G. K is normal in G ifgKg7! = K, 
for everyg eG. We will use K <G to denote K as being normal in G. [Rot95] 


Definition 1.19. Leta, b€ G. We denote the commutator of a and b by [a,b], where 
[a,b] = aba~'b-!. [Rot95] 


Definition 1.20. Let G be a group. The Derived Group of G, denoted G’, is the 
subgroup of G formed by all the commutators of G. [Rot95/] 


Definition 1.21. Let G be a group. The index of H < G, denoted |G : H], is the 
number of right cosets of H in G. [Rot95/ 


Definition 1.22. Let X be a set andG be a group. We say X is a G-set if there exists 
a function ¢: Gx X + X (which we call an action) and the following hold for ¢: 


elx=uz, forallxe xX. 
e g(hx) = (gh)x, forg he G andxe X. [Rot95] 


Definition 1.23. Let G be a group. The center of G, Z(G), is the set of all elements 
in G that commute with all elements of G. [Rot95] 


Definition 1.24. Let G be a group. If H < G, the normalizer of H in G is defined 
by Nc(H) = {a € GlaHa! = H}. [Rot95] 


Definition 1.25. Let G be a group. If H < G, the centralizer of H in G is: 
Ce(A) = {x €G: |x, h] =1 for allh € H}. [Rot95] 


Definition 1.26. Let G be a group and X be a G-set. For x € X, the set x& = {x9|g € 
G} is a G-Orbit. /Rot95/ 


Definition 1.27. Let X be a G-set. Let a be an action of G on X. Ifa:G— Sx is 
injective, we say X is faithful. /Rot95/ 


Definition 1.28. Let G be a group and X be a G-set. X is transitive if for all x,y © X 
there exists ag © G such that y = gx. [Rot95] 


Definition 1.29. Let G be a group. A normal series G is a sequence of subgroups 
G=G)2G,2°:-2Gnrn=1 


with Gi41 <1 G;. Furthermore, the factor groups of G are given by G/Gi41 fori = 
0,1,...,n—1. [Rot95/ 


Definition 1.30. Let X be a set and A by a family of words on X. A group G has 
generators X and relations A if G = F/R, where F is a free group with basis X and 


R is the normal subgroup of F generated by A. We say < X|A > is a presentation 
of G. [Rot95] 


Definition 1.31. Let X be a G-set. Then for B C X, B is a block if for every g € G, 
either gB = B orgBNB=9. [Rot95] 


Definition 1.32. Let X and Y be G-sets. The function f : X — Y is a G-map if 
f(gx) = gf(ax), for allxe X andg€G. [Rot95/ 


Definition 1.33. Let X be a G-set. X is primitive if X has no nontrivial blocks. If 
X is primitive, the only blocks of X are B= X and B=9. [Rot95] 


1.2 Theorems 


Theorem 1.34. Every permutation a € S, is either a cycle or a product of disjoint 


cycles. [Rot95] 

Theorem 1.35. Let f : (G,*) + (G’,0) be a homomorphism. The following hold true: 
e f(e) =e’, where e’ is the identity in G’, 
e IfacG, then f(a) = f(a)?" 
e IfaceG andne€Z, then f(a") = f(a)”. [Rot95] 


Theorem 1.36. The intersection of any family of subgroups of a group G is again a 


subgroup of G. [Rot95] 


Theorem 1.37. If S < G, then any two right (or left) cosets of S in G are either 
identical or disjoint. [Rot95] 


Theorem 1.38. If G is a finite group and H < G, then |H| divides |G| and |G: H] = 
|G|/|H|. [Rot95] 


Theorem 1.39. If S and T are subgroups of a finite group G, then 


IST||SAT| =|S||T|. [Rot95] 


Theorem 1.40. If N <G, then the cosets of N in G form a group, denoted by G/N, 
of order |G: N]. [Rot95] 

Theorem 1.41. The commutator subgroup G’ is a normal subgroup of G. Moreover, 
if HAG, then G/H is abelian if and only if G’ < H. [Rot95] 

Theorem 1.42. Let 6: G > H be a homomorphism with kernel kK. Then K is a 
normal subgroup of G and G/K = im@. [Rot95] 

Theorem 1.43. Let N and T be subgroups of G with N normal. Then NOT is normal 


in T and T/(NNT) = NT/N. [Rot95] 


Theorem 1.44. Let G be a group with normal subgroups H and K. If HK =G and 
HO K =1, thnG2Hx K. [Rot95/ 


Theorem 1.45. Ifa € G, the number of conjugates of a is equal to the index of its 


centralizer: 
ja] = [G : Ce(a)], 
and this number is a divisor of |G| when G is finite. [Rot95] 


Theorem 1.46. If H <G, then the number c of conjugates of H in G is equal to the 
index of its normalizer: c= |G: Ng(H)], and c divides |G| when G is finite. Moreover, 
aHa~! = bHb~! if and only if b-!a € Ne(H). [Rot95] 


Theorem 1.47. If H < G and |G: H| =n, then there is a homomorphism p: G > Sn, 
with kero < H. The homomorphism p is called the representation of G on the cosets of 
H. [Rot95] 


Theorem 1.48. If X is a G-set with action a, then there is a homomorphism @ : S'x 
given by @: 2+ gx =a(g,x). Conversely, every homomorphism yp: G — Sx defines 


an action, namely, gx = p(g)x, which makes X into a G-set. [Rot95/ 


Theorem 1.49. Every two composition series of a group G are equivalent. We will 


refer to this Theorem as the Jordan-H6élder Theorem. /Rot95/ 


Theorem 1.50. Let X be a faithful primitive G-set of degreen > 2. If H AG and if 
H #1, then X is a transitive H-set. Also, n divides |H|. [Rot95] 


Chapter 2 


Writing Relations 


Now we give important lemmas which assist us to find appropriate relations 


to factor our progenitors. 


2.1 The Factoring Lemma 


Factoring the progenitor m*" : N by (t;,t;) for 1 <i < j <n gives the group 
m”:N. [Gril5] 


This factoring lemma is used to check if the progenitor was written correctly or not. 


2.1.1 Factoring Lemma Preformed on the Progenitor 11*? : D; 


Consider the progenitor 11*? : D5. Now, if we factor the progenitor 11*? : Ds 


jes. =11? x 10 = 1210. Where t, ~ t and 


to ~ t¥, the progenitor must generate our group 11*? : Ds. We will show this by using 
MAGMA. 


by the relation tit. = tgt,, we must get | 


S:=Sym(20); 
xx:=S!(1,9,5,7,17) (2,18,8,6,10) (3,19,11,15,13) (4,14,16,12,20); 
yy:=S!(1, 2) (3, 4) (5, 6) (7, 8) (9, 10) (11, 12) (13, 14) (15, 16) 
(17, 18) (19, 20); 

Nm:=sub<S|xx,yy>; 

#Nm; 
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FPGroup (Nm) ; 


Finitely presented group on 2 generators 
Relations 

$.2°2 = Id(S$) 

($.1°-1 * $.2)°2 = Id(S$) 

$.1°-5 = Id($) 


NN<x, y>:=Group<x,yly°2, (x°-l*y) °2,x*-5>; 
#NN; 
10 


Stabiliser (Nm, {1,3,5,7,9,11,13,15,17,19}); 
Permutation group acting on a set of cardinality 20 


Order = 5 
(L329 bo 7 DDeC2 Se kB 8s 65> LOM By 9, 
(4, 14, 16, 12, 20) 


G<x,y,t>:=Group<x,y,tly°2, (x°-1 * y)72,x°-5,t71l, 


t*x=t75, (t,t*y)>; 
#G; 
1210 


Index (G, sub<G|x,y>); 
121 


£,G1,k:=CosetAction (G, sub<G|x,y>); 
IN:=sub<G1|f(x),f(y)>; 
CompositionFactors (Gl); 


Cyclic (2) 


Cyclic(5) 


#Conjugates (G1, sub<G1|f(t)>); 
2 


Therefore, our progenitor is written correctly. 


Lely 


15, 


13) 


2.2. The Famous Lemma 


Theorem 2.1. (Famous Lemma). NN < ti,t; >< Cn(Nij), where Ni; denotes the 
stabilizer in N of the two points i and j. [Cur07] 


2.2.1 The Famous Lemma Performed on the Progenitor 2*° : (2 x 4: 2) 


We have given another way to produce important relations by a lemma is 
called the famous lemma. Through the following example, we will describe steps to 
apply the famous lemma. First, we need to store these generators of the permutation 
group N =< ww,rz,yy,zz > in Magma. We will look for the highest digit in the 


permutations. Since 8 is the highest number, we will use sym(8). 


S:=Sym(8); 

ww:=S!(2, 5) (3, 7); 

*xX:=S! (1,2) (3, 6) (4, 5) (7, 8); 
yy:=S!(1, 3, 4, 7) (2, 6, 5, 8); 
zz:=S! (1, 4) (2, 5) (3, 7) (6, 8); 


N:=sub<S | ww, XX, YY, ZZ> 


We check the order of N, so it is equal 16. Next, we want to ask Magma for a presentation 


for N. 


FPGroup (N); 
Finitely presented group on 4 generators 


Relations 

$.1°2 = Id($) 

$.2°2 = Id($) 

$.3°4 = Id($) 

$.4°2 = Td($) 

($.1 * $.3°-1)°*2 = Id(S) 

$.2 * $.3°-1 * $.2 * $.3 = Id($) 
$.3°-2 * $.4 = Id(S$) 

S.1 * $.2 *« S.1 * $.2 *« $.4 = Id(S) 


This will be our presentation for N, where .1 = w, .2 =a, .8= y, and .4 = z type in 
NN=Group < w, 2, y, z|w, 27, y*, 27, (wey 1)?, vey Levey, y 2*2, WEL WHLEZ >. 
Now, let us check the order of NN. This should be equal to the order of N, which was 
16. 


#NN; 
16 
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We have 16, then we can move on to the next step. We now have a presentation for 


NN, now we will add a ¢,s and make them commute with the stabilizer. 


N1:=Stabiliser(N,1); 

Generators (Nl); 

(2, 5) (3, 7) 

So, we will need to add (t, (25)(37)) to our presentation which means that t commutes 
with (25)(37). Also, we know that t is of order 2, since the progenitor given is 2*°, so 
we will add ¢? to our presentation as well. To write (25)(37) in the presentation, we 
need to convert it into terms of w, x, y, and z. So, we will add this to our presentation 
that (t,w) since (2, 5)(3, 7) is equal w. Therefore, our presentation will look like this so 
far G = Group < w,2,y, z,t\w?, 27, y*,27,(wey 1),c*y le rey,y 2*2,WkL ews 
x * z,t?,(t,w) >. We will now factor this presentation by the famous lemma. Famous 
lemma states that relations will look like as follow: 

(xt;)' = 1 where m is odd and x sends 1 to 2 and (t;t;)' = x where m is even and x 
fixes 1 and 2. [Cur07] 

Now, we need to find the centralizer of the point stabilizer of 1,2. 
N12:=Stabiliser(N, [1,2]); 

C:=Centraliser(N,N12); 

Ci 

Permutation group N acting on a set of cardinality 8 

Order = 16 = 274 


(2, 5) (3, 7) 

Gly 12) Coy. 6) CE ala 3) 
(1, 3, 4, 7) (2, 6, 5, 8) 
(1, 4) (2, 5) (3, 7) (6, 8) 


We consider permutation (2,5)(3,7). The lemma tells us that if 1 and 2 are fixed then 
we use the following relation ,(t, * t?)’ = (t * t”)™ = w, where m is even. We also see 
that the permutation (1, 2)(3, 6)(4, 5)(7, 8), so we have this relation 

((1, 2)(3, 6)(4, 5)(7, 8) *t,)™ = (at)* = 1 since 1 send to 2 and k is odd. Finally, we will 


add these relations to our presentation. 


for kan [05.10] do *#or m an: PO)d;5:.35°5;, 7791 -do; 
G<w,X,VY,Z,t>:=Group<w, X,y,zZ,t|w°2,x°2,y° 4,z2°2, (wxy°-1) 72, 
K*Y Ll kXKY, Yo -2*Z,WkKXeWHX*Z,C°2, (C,W), (t*x) “k=1, (t*t*x) “m=w>; 


if #G gt 16 then k,m, #G; 
end if; end for; end for; 
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2.3. The First Order Relation 


A relation of the form (a *t;)", where x € N, and t; € {t1, te, t3,...} and a> 2. 
To apply the first order relation, we need to do these steps which are: 
e We need to find a presentation of the progenitor G = m*": N. 
e We need to find classes of N and factor our progenitor by these classes. 
e We have to compute the centralizer of all classes and orbits of all classes. Then, we 
can develop the first order relation from those orbits.[Why06] In the following example, 
we apply those steps to factor our progenitor by the first order relation to find the 


homomorphism images. 


2.3.1 The Progenitor 2*!° : (2 x 4: Cy x C,) Factored by the First Order 


Relation 
S:=Sym(16); 
xx:=S!(2, 8) (3, 7) (4, 14) (6, ee 3). (115. (16)3} 
yy:=S!(1, 2) (3, 9) (4, 8) (5, 10) (6, a. 11) (12, 16) (13, 15); 
zz:=S!(1, 3) (2, 9) (4, 12) (5, 7) (6, 13) (8, 16) (10, 11) (14, 15); 
ww:= S!(1, 4, 5, Ta) (2. “GF 10, 8) (37 AY, Vp 15) 13 1i;- 16) 
hh:=S! (1, 5) (2, 10) (3, 7) (4, 14) (6, 8) (9, 11) (12, 15) (13, 16); 
N:=sSsub<S|xx, yy, zz,ww,hh>; 
#N; 
32 


NN<x, y,Z,W, h>:=Group<x,y,Z,w,h|x°2,y°2,z°2,w'4,h°2, 
(y*z)°2, (x*w°-1) 72, 
(yxw°-1)°2,z*w°-1lxz*ew,w > -2*h, X*¥y*Xxy*xw -1,X*Z*X*Zeh>; 
Sch:=SchreierSystem(NN, sub<NN|Id (NN) >); 
ArrayP:=[Id(N): 1 in [1..32]]; 

for iin [2..32] do 


:=[Id(N): 1 in [1..#Sch[i]]]; 

for j in [1..#Sch[i]] do 

if Eltseq(Sch[il) 3] eq 1 then P[j]:=xx; end if; 

if Eltseq(Sch[i])[j] eq -1 then P[Jj]:=xx*-1; end if; 
if Eltseq(Sch[i])[j] eq 2 then P[j]:=yy; end if; 

if Eltseq(Sch[i])[j3] eq -2 then P =yy -l; end if; 
if Eltseq(Sch[i])[j] eq 3 then P[j]:=zz; end if; 

if Eltseq(Sch[i])[j] eq -3 then P =zz°-1; end if; 
if Eltseq(Sch[i])[j] eq 4 then P[j]:=ww; end if; 

if Eltseq(Sch[i])[j3] eq -4 then P[j]:=ww*-1; end if; 
if Eltseq(Sch[i])[j] eq 5 then P[j]:=hh; end if; 


if Eltseq(Sch[i]) [3] 


eq -5 then P[j]:=hh*-1; end if; 


end for; 

PP:=Id(N); 

for k in [1..#P] do 
PP:=PP*P[k]; end for; 
ArrayP[i]:=PP; 

end for; 


G<x,y,Z,w,h,t>:=Group<x,y,z,w,h,t|x°2,y°2,z°2,w 4,h°2, (y*z) “2, 
(x*w°-1)°2, (y*w*-1)7 
X*Z*X*Z*hH,t°2, (t,xX)> 


C:=Classes(N); 
C; 


2,zZ*wW° -lxzew,w°-2*h,x*y*«x*yrew —-l, 


y 


Conjugacy Classes of group N 


[1] Order 1 Length 1 
Rep Id(N) 
2] Order 2 Length 1 
Rep (1, 5) (2, 10) (3, 7) (4, 14) (6, 8) (9, 11) (12, 15) (13, 16) 
[3] Order 2 Length 2 
Rep (1, 3) (2, 9) (4, 12) (5, 7) (6, 13) (8, 16) (10, 11) (14, 15) 
4 Order 2 Length 4 
Rep (1, 2) (3, 9) (4, 8) (5, 10) (6, 14) (7, 11) (12, 16) (13, 15) 
[5] Order 2 Length 4 
Rep (1, 9) (2, 3) (4, 16) (5, 11) (6, 15) (7, 10) (8, 12) (13, 14) 
[6] Order 2 Length 4 
Rep (2, 8) (3, 7) (4, 14) (6, 10) (9, 13) (11, 16) 
[7] Order 4 Length 2 
Rep ((L,- 4, 37 24) (2). 6/7. LO; 28)°(038). 125. 2h, V5) 097. 1S Ty 16) 
[8] Order 4 Length 2 
Rep: (i, 12> 7 15)(2, 13,7 10,7: 16): (Ge 4p 7, 4) (6, 21. 85. 9) 
[9] Order 4 Length 4 
Rep. (1, dp 5S, 3) (27.23, 10, 16) (4, 12, -14, 15).(6; 97.8, 11) 
[10] Order 8 Length 4 
Rep, (41, 8% 14, 1.0, <Sy 6% °4;..2): 634: P3e Wop 9% Tp. 6, 125 LL) 
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[11] Order 8 Length 4 

Rep (ly. 16; -4,.-9 5, 13,024, 11)-(24) 3% 6 227 10) Tp By. 15) 
fOr “a in: [2..#E] “do 

i, Orbits (Centraliser(N,C[i][3])); 

end for; 

[2] 

GSetn{@ ty. 2) 35 45-57-87. Oe Oy - LO Ve 2 Day P69 134: ky Sey 
[3] 

GSet.@ LB 7 L642. <857-- 99 22, 25, 4 14, D0y. 135. TM -6;. 53. Te e4 
[4] 

GSet{@ 1, 2, 3, 11, 9, 7, 10, 5 @}, 

GSet 4, 8, 12, 13, 16, 15, 6, 14 @} 

[5] 

GSet{@ 1, 9, 2, 11, 3, 5, 7, 10 @}, 

GSet 471-64 “By. UB; 12; Lay: 155 -6-.@} 

[6] 

GSet{@ 1, 15, 5, 12 @}, 

GSet{@ 3, 7, 14, 4 @}, 

GSet{@ 2, 8, 16, 11, 10, 6, 13, 9 @} 

[7] 

GSet{(@ he Ay LOe 72), By. 95 “Op <1 By sap TS LO. aS yy 12s 8; ek sl} 
[8] 

GSet{@ 1, 12, 14, 5, 3, 4, 15, 7 @}, 

GSet 2 8; 13,7. 9%. 10%. 6, LO, 11: ey 

[9] 

GSet{@ 2, 13, 16, 10 @}, 

GSet{@ 6, 9, 8, 11 @}, 

GSet{@ 1, 7, 15, 5, 4, 3, 12, 14 @} 

[10] 

GSet{@ 1, 8, 14, 10, 5, 6, 4, 2 @}, 

GSet{@ 3, 13, 15, 9, 7, 16, 12, 11 @} 

[11] 

GSet{@ 1, 16, 4, 9, 5, 13, 14, 11 @}, 

GSette@ 2, 3, <6, AZ, 10,7. 7,- 8,15: .@4 

for j in [2..#C] do 

CLIJI [3]; 

for iin [1..32] do if ArrayP[i] eq C[j][3] then Sch[il]l; 
end if; end for; 

(1, 5) (2, 10) (3, 7) (4, 14) (6, 8) (9, 11) (12, 15) (13, 16) 
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Qs By Sy. Op BO Gi TG Tse ES) (le 4 5) 
(1, 2) (3, 9) (4, 8) (5, 10) (6, 14) (7, 11) (12, 16) (13, 15) 
i. Sy 374, BES, 16> AS) C7y. TOs ey ies 1a) 
(De BS Fae. MAY Ge DOI USP 6) 

(is 2. Sy AAO Sy B10 s BN Sy, SOG. “Tp ES oO PS AED) 
(i. VO. Sp PHN). BS). Ap’ TENS, 45, UE WAG, 1, 8. 35 
(de Fo Se BY TS Ty Eas, Se a, RS Oe eee 2a 
(1 By Was Os Sy... 26). Ap DN Sp 1S Se By TT es. 1S, A) 
(Io EGS Ae. BS. “By 13h Pap TA Oe. 3p Ge AO. Oy Fy By. 25) 
h 

Zi 

y 

y*z 

» 4 

WwW 

Zk W 

Lin ee 

yee 

YrexX * Z 


Now, we multiply each word in above by t. (hx t), (z *t), (y *t), (y * t”), (y * 
ZRE\ (PRE G1) (eee) oe TY) ioe te ae 1) (ee EY le (a EY) he ea 
ty) (zxaxt), (yxaxt), (yxa*t?), (yxuxz*t), (yxauxztY), where t; =t, to =, 
t3 = t?, ta =t”, ts =t", tg = t/™) and we can raise this to some power such as a, b, 
c, d, f, ff, g, i, ii, j, jj, e, u, r. Then, we add these relations to our presentation and run 


it in the background on Magma to find some homomorphic images. 


for a,b,c,d,f,ff,9g,1,11,j,jJj,¢,u,r in [0..10] do 
G<x,y,Z,w,h,t>:=Group<x,y,z,w,h,t|x°2,y°2,z°2,w 4,h°2, 
(y*z)°2, (xxw°-1)°2, (y*w°-1)°2,z*w°-lx«zew, 

wo -2*h,xX*y*xxX*yew -1,xX*zZ*x*z*h,t°2, (t,x), (nxt) 7a, 

(z*t) “b, (y*xt) “c, (y*xz*t) “d, (x*t) “f, (x*«t“y) “ff, (wet) *g, 
(zxwet) “1, (zewet*y) “ii, (z*x«*t*y) “J, (z*x*t* (y*w)) “FI, 
(y*x*t) “e, (y*x*Zzx*t) Wu, (y*xX*Z*t°X) E>; 
a,bo,c,d,f,ff,9g,i,ii,j,jj,¢,u,v,#G; 

end for; 


Some homomorphic images are obtained by factoring our presentation by the 
first order relation lemma: 
0000000048 8 141557760 
0000000008 4 2211840 


000000038 86 4 196608 
00000003 1055 1920 
00000003 106 4 30000 
000000044 6 4 36864 
00000004644 5184 
0000000484 4 2097152 


0000000489 3 39191040 


00000004 10 4 4 40000 
0000000545 4 327680 
000000064 4 4 2304 
0000000838 9 672 
000000083 10 9 4320 
0000000844 4 32768 
00000020558 1440 
0000002055 9 6840 
0000002855 10 10240 
0000003005 4 368640 
0000003040 4 3072 
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Chapter 3 


Character Table Construction 


3.1 Definitions and Theorem 


Definition 3.1. Let x1,...,x% be the irreducible characters and conjugacy classes of G 
and let g1,..., gp be representatives of the conjugacy classes of G. Thekxk matrix whose 
ij-entry is xi(gi) (for alli, j with 1 <i<k,1<j<k) is called the character table 
of G. 


Definition 3.2. The degree of a character x is x(1). Note that a character whose degree 


is 1 is called a linear character. /Led87/ 


Theorem 3.3. Let G be a finite group having the distinct irreducible x', y?,.....,x*. 
Let 1<i,7 <k. Then Ss xP =!26,5 

e In a character table, the dot product of any column with conjugate of any other column 
as 0. 

e In a character table, the dot product of the column q@ with its own conjugate is ie 


[GL93] 


Definition 3.4. In a character table the sum of squares of the degrees of the distinct 


irreducible characters of G is equal to |G|. The degree of a character y is x™.[GL93] 


Definition 3.5. The number of irreducible character of G is equal to the number 


of conjugacy classes of G.[Led87] 


17 


Definition 3.6. Character table of a cyclic group 
Let G be a cyclic group of order n. Then G = < z >,and |z| =n. Let 6 = ag where 
r =0,1,2,...,n, be the n nth roots of unity. For any z° € G, s=0,1,2,...,n, the values 


2% 


: 
n , where r=0,1,2,...,n. 


of the n irreducible characters y) are given by x) (2) =e 


[GL93] 


Definition 3.7. Let a € G, where G is a group. The conjugacy class of a is given by 
a® = {a9|g € G} = {g7laglg € G}. [Rot95] 


Definition 3.8. Character table of an abelian group: Let G be a finite abelian 


group say G=< 27 > X < 2% > X < 23 > XX < %m >, where each z,is order of 


order ny and |G| Sj nyts.ntos Debe = 275 ee, 
Qrirp 
element of G.Now let, for each p,€, =e ™ , wherer, =0,1,2,...,n,y, be the n, th roots 


where 0 < ay, <n, be an arbitrary 


of unity. Here w = 1,2,..,m. Then corresponding to each m-tuple r = [r1,7T2,.--;Tml, 


x) are given by x(x) = erm Lai “na is an irreducible character of G. [GL93] 


Definition 3.9. Lifting process: Let N be a normal subgroup of G and suppose that 
Ao(N«a) is a representation of degree m of the group G/N. Then A(x) = Ao(Nz) 
defines a representation of G/N LIFTED from G/N. If ¢o(Na) is the character of 
Ao(N«a), then o(x) = o(Na) is the lifted character of A(x). Also, if u € N,then 
A(u) = Im, o(u) =m = (1). The lifting process preserves irreducibility. [Led87] 


Definition 3.10. The group from a character table of the finite group: 

(a) All normal subgroups of a finite group G can be obtained from its character table as 
follows: 

i. ker x is the union of conjugacy classes Cy for which x? = (1). 

it.a collection of conjugacy classes from a normal subgroup <=> it is an intersection of 
kernels of its characters. 

(b) IG/= the number of linear characters of G. 

(c) G is simple if the kernel of each character is 1. 


(d) The center is cyclic if the table contains a faithful character. [Led87] 


Theorem 3.11. Let x1,...,x% be the irreducible characters of G, and let g1,..., gn be 
representatives of the conjugacy classes of G. Then the following relations hold for any 


r,s €1,...,k. 
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(1) The row orthogonality relations: 
a Xr(Gi)Xs(Gi) _ 5 
ICa(gi)| 


(2) The column orthogonality relations: 


1 xi(Gr)Xi(Gs) = 5rs|Co(ga)|-[Led37] 


Definition 3.12. The inner product of characters of G, say ¢ and w can be found 
as follows: 

< o,w >=Gqhadgy, where ho, is the number of elements in the class a, bg is the value 
of b in the class a, Wa is the value of w in the class a. Also, note that x° is the value 


of x at class a. [Led87] 


3.2 Building the Character Table of D4, 


In this example, we will show how we can use the lifting process to find the 
character table of the dihedral group D4. In order to build character table of the dihedral 
group Dy, of order 8. We will use the conjugacy classes.{Has17] 

Let G=D, = {e, a, a”, ab, ab, a°b, ab} 
Leta = (1,2, 3;4)0 = G42, 3).e" = (1,3) QA), a? = (1,4; 3, 2) ab = G3); 
a®b = (2,4), and a?b = (1, 2)(3, 4). 


Conjugacy Classes of group G 


[1] Order 1 Length 1 
Rep Id(G) 
[2] Order 2 Length 1 


Rep (1, 3) (2, 4) 


[3] Order 2 Length 2 
Rep (1 4) (2, 3) 


[4] Order 2 Length 2 
Rep (2, 4) 


Next, we will find a normal subgroup of G. Now a? lies in the center of G, as it commutes 
with every elements of D4. Therefore, N = {1,a7} the center of Dy. Thus, the conjugacy 
classes being {1, a7}, {a,a?}, {b, a7b}, and{ab,a>b}. As a result, D4 has 5 irreducible 
representations and N = {1} U {a7} is normal in D4. 


The quotient group = 4 and it is isomorphic to 7/26Z/2. The group Z/26Z/2 


element in D, to the identity, so the first row will be the trivial character ¥! which is 


[Dal _ 
LN 
has four classes {Id, a, b, ab}. 


2 


Length 2 


Table 3.1: Character Table of 7/2 6 7/2 


Classes | 1] 2 | 3] 4 
size 1} 1/1 1 
Rep 1] aJ|b | ab 
Xl 1} 1]/1)1 
x.2 1] -1]-1) 1 
x.3 ge (ee ed | 
x.4 1} 1] -1) -1 


Now, we will start to fill character table of D4. 


Table 3.2: Initial Character Table of D4 


Classes | 1 2 3 4 5 
Length | 1 1. 2 2 2 
Rep 1 | (1,3)(2,4) | (1,4)(2,3) | (2,4) | (4,2,3,4) 
a 

x? 

x3 

xe 

x ras a B ay ) 


the identity character. 


We know that the trivial representation is a representation that takes every 
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1) First, we now lift Y! to Dg: 
e X' is identity character. So,the elements of the first row will be 1, 1, 1, 1, and 1. 


2) Next, we lift Y? to Da: 

e X?(e)=x.2(Ne)=1. 

e X7((1,3)(2,4))= x.2(N(1,3)(2,4))= 1. 

(since (1,3)(2,4)e N) 

e X7((1,4)(2,3))= x.2(N(1,4)(2,3)= -1. 

e X7((2,4))= x.2(N(2,4))= 1 (since ab=(1,3) and x.2(N(2,4))=x.2(N(1,3)). 
© X7(1,2,3,4)= x.2(N(1,2,3,4))= -1. 


KS —_aa ee 


( 
(( 
( 
Thus, the elements of the second row will be 1, 1, -1, l,and -1. 


3) Also, we lift V7? to Da: 

e X£3(e)= x.3(Ne) = 1. 

e ¥9((1,3)(2,4))= x.3(N(1,3)(2,4)) =1. 

e X3((1,4)(2,3))= x.3(N(1,4)(2,3) = 1. 

e ¥9((2,4))= x.3(N(2,4)) = -1. 

e X3(1,2,3,4)= x.3(N(1,2,3,4)) = -1. 

So, the elements of the third row will be 1, 1, 1,-1, and -1. 


4) Finally, we lift 44 to Da: 

e X4(e)= x.4(Ne)= 1. 

e X4((1,3)(2, 4))= x.4(N(1,3)(2,4))= 1. 

e X4((1,4)(2,3))= x.4(N(1,4)(2,3))= -1. 

e X4((2,4))= x.4(N(2,4))= -1. 

e X4(1, 2,3, 4)= x.4(N(1,2,3,4))= 1. 

So, the elements of the fourth row will be 1, 1, 1, -1, and -1. 


We could lift the four characters of 7/2 @ Z/2 to obtain four characters X}, 
X?, X3, X4 of D4 it remains to find ¥°. Then, we use the fact that the sum of squares 
of the degrees of the distinct irreducible characters of G which is equal to |D4| to find 


the first element of 4°, it will be as follows: 


21 


FP se PGA) so) he eS Pe Te eel ae PPS 1G |S 6, PS. 


For the moment denote the values of 4° for C2, C3, C4, and C5 by a, 8, y, 6 respectively. 
To find last row values we will use the orthogonality relations. By theorem, in a character 
table, the dot product of any column with the conjugate of any other column is 0. 
The column 1 and column 2 of character table of Dy: 

e (1). + (1). + (2). + (2). + (2).(a) = 0 = a = 34 = -2. Thus, a =-2. 


The column 1 and column 3: 


© (1).(1) + (1).(-1) + @).(0) + (1). 1) + (2).(8) = 0 


The column 1 and column 4: 


Revy 
lI 
ro) 
WM 

Oo 

RD 
| 
(=) 


°(1).(1) + (1).(D) + (1).(-1) + (2).(-1) + (2).(5) = 0 = 7 =0. So, y=0. 


The column 1 and column 5: 


#(1).(1) + (1).(-1) + (1).(-1) + (2).(D + (2).(6) = 0. => 6 = 0. Thus, 6=0. 
Therefore, the elements of the last row will be 2,-2, 0, 0, and 0. Then, character table 
of D4, will be. 


Table 3.3: Final Character Table of D4 


Classes 1 2 3 4 5 

Length 1 1 2 2 2 
Rep 1 (1,3)(2,4) | (1,4)(2,3) | (2,4) | G,2,3,4) 
ae 1 1 1 1 1 
x? 1 1 =f i sf 
x? 1 1 i -1 2h 
x4 1 1 1 41 1 
x? PP Ol a) B=0 |yvy=0] 5=0 


3.3 Inducing a Linear Character of a Proper Subgroup up 
H =5:2? of Ss 


Let G be a group such that G = S5. We want to give a faithful and irreducible 
monomial representation of G of degree n. Thus, we must induce a linear character of 
a proper subgroup up H & 5: 2? of Ss. In order to induce up to a character of G 
of degree n the subgroup H must be of index n. In the following example, G has the 


following character table: 
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The character table of G 


Class | be 2 Be A Be GF 
Size | 110 15 20 30 24 20 
Order | Po 2 2-3. 4s “Be 6 
p = 2 1 1 4 3 6 4 
ep = 3 2. 3: 1. “5. 6-2 
pr =. 055 2. ~Sy “Al 35 7 
Xek: + des al 
eZ + BSL - =a 
X.3 + 4-2 0 QO - al 
X.4 + 4 2 0 O: Shh 
X.5 + Be reeset CQL 
X.6 + 3S ili = Ossi 
Mal + 6. O-=2. 0" 0: 2. <0 


Now, we want to induce a linear character of H up to a character of G of degree 6. So, 


we have taken a subgroup H of index 6 in G. 


Index (G,H); 
6 


Now, the proper subgroup H ~ 5 : 2? of Ss all the linear of H are lift to H of irreducible 
characters H/H’ where H’ denotes the derived subgroup of H. 


G:=PrimitiveGroup (5,5); 

IsAbelian(G); 

xx:=G.1; 

yy:=G.2; 

S:=Subgroups (G); 

for iin [1..#S] do if Index(G,S[i] ‘subgroup) eq 6 then i; 
end if; end for; 

H:=S[16] ‘subgroup; 

dH:=DerivedGroup (H) ; 

dH; 


Thus, H’ =< (1,4,5,3,2) >“5. The number of distinct linear characters of H is equal 
(odin = » = 4, so we will have 4 transversals. 


Thus, H/H! = {H’e, H’(1,5,3,4), H’(1,3)(4,5), H’(1, 4,3, 5)}. 
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S:=Set (dH) ;q:=[{Id(H)},{},{},{}]; 
for i in [1..#T] do for g in S$ do 
qgli]:=q[i] join {g*T[i]}; end for; end for; 
ar 
{ 


1, 4 
pn 
d(H), 
iy 2 
a) 


’ 


a 


~ 


4, 2, 3) 

iy Dip (2) 
2% Dy 4a 3) 5 
1, 5, 3, 4) 
dg 2g Arps 35.) 


’ 


~ 


( 
( 
I 
( 
( 
} 
{ 
( 
( 
( 
( 
( 
} 
{ 
( 
( 
( 
( 
( 
} 
{ 
( 
( 
( 
( 
( 
} 


So, the conjugacy classes of H/H’ are {Id(H)}, {H’(1,4,2,3)}, {A’(1, 2)(3,4)}, and 
{H'(1,2,5,3)}. Now, we will construct the character table of H/H’. The character 


table of cyclic group has primitive 4 the root of unity =i as follows: 
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Table 3.4: Initial Character Table of Cyclic Group Z4 


Classes |e | a | a? ae 
X°.1 1) 1 1 1 
BPO | dal tiles alee 
3. eee eae 
AeA Gee 
Where 7? = —1, #® = —i, and (43)? = # = (44)7i = i. Therefore, this is 


equivalent to character table of H/H' = Z4. 


Table 3.5: Final Character Table of Cyclic Group Z4 


Classes ] e ] a | a2 | a 
Xe .1 1} 1 1 1 
Xe .2 1) ij -1 |} -i 
X°.3 1)-1/ 1) -1 
X°.4 1} -i | -1] i 


Table 3.6: Character Table of H/H' ~ Z4 


Classes | 1 2 3 4 
size 1 1 1 1 
Rep H’ | H’(1,2)(3,4) | H’(1,4,2,3) | H’(1,2,5,3) 
Order | 1 2 4 4 
Xx? .1 1 1 1 1 
X°.2 1 i -1 -i 
X°.3 1 -1 1 -1 
X°.4 1 -1 -1 i 


Thus, we could build the character table of H/H’. Now, we can construct the 
character table of H by lifting the character table of H/H’' to H. 
To build the character table of H, we first need to figure out the conjugacy classes of H. 
The following set are the conjugacy classes of H are {e}, {(1,2)(3,4)}, {(1, 4, 2,3)}, 
{(1,2,5,3)}, and {(1,4,5,3,2)}. So, we will construct the character table of H with 
five rows and column since there are five conjugacy classes in H. Then, we will use the 
definition of lifting character, we will lift each irreducible character from H/H’ to H. 


We note that, V(h) = X°(h) for h € H. 
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First, the first row will be identity character. 
Next, we find the second row by lifting ¥°.2 to H. 
X .2e)=X°.2(H’e)= 

X.2(1, 2)(3, 4))=¥*.2(H’(1,2)(3,4))= 

X (1, 4, 2, 3))=X*.2(H’(1,4,2,3))= -1 


( 

( 

( : 

(¥.2(1, 2,5, 3))=4*.2(H’(1,2,5,3))= -i 

( H’(1,4,5,3,2))= 1 
( 


H 
H 
X .2(1, 4, 5,3, 2))=¥*.2( 

since=%° .2(H’(1,4,5,3,2))=¥°.2(H’e)). 


Now, we find the third row by lifting ¥°.3 to H. 
X 3e)=X°.3(H’e)=1 

X.3(1, 2)(3, 4))=¥°.3(H’(1,2)(3,4))= -1 

HX .38(1;4, 2,3) =X" 3(0'1,4;2,3))= 

X.3(1, 2,5, 3))=4°.3(H’(1,2,5,3))= -1 

X33(1 5455.52) ) 0 3H (14,5,352))= 1 
since=%° .3(H’(1,4,5,3,2))=¥°.3(H’e)). 


7 i a i i 


We will now find the fourth row by lifting ¥°.4 to H. 
(X.4e)=4X°.4(H’e)=1 

(¥.4(1, 2)(3, 4))= InGaN -i 

(¥.4(1, 4, 2, 3))=¥°.4(H’(1,4,2,3))= -1 

(¥.4(1, 2,5, 3))=4°*.4(H (1,2,5,3))= 

(¥.4(1, 4,5, 3, 2))=A’*.4(H’(1,4,5,3,2))= 1 

(since=¥°.4(H’(1,4,5,3,2))=4°.4(H’e)). 

Lastly, we will fill the last row by using the orthogonality relations. We will 
suppose in the last row, we will have a, b, c, d, and f, respectively. So, we need to 
compute these values. We use the fact that the sum of squares of the degrees of the 
distinct irreducible characters of H which is equal to |H| to find the first element of ¥°, 
it will be as follows: 


oe 17417417 +1? + a?=|H|=20. So, a? = 16 then a = 4. 
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We first have to note that if we collect different columns, they will equal zero by using 
this definition: 

py MN Sa 

Lee 4=0 


e The column 1 and column 2 of the character table of H: 


e (1).(1) + (1).(@) + (1).(-1) + (1).(-4) + (4).(6) = 0 = D=0. So, b=0. 
e The column 1 and column 3 of the character table of H: 
e (1).(1) + (1).(-1) + (1).(1) + (1).(-1) + (4).(2 =0 = @=0. So,c=0. 


e The column 1 and column 4 of the character table of H: 


e (1).(1) + (1).(—4) + (1).(-1) + (1).@) + (4).(d) = 0 = d=0. So,d=0. 


e The column 1 and column 5 of the character table of H: 


e (1).(1) + (1).(2) + (2).(D + (1).(1) + (4).(f) = 0 => f =—-1. So, f =1. 
Finally, we could fill our character table of H by lifting H/H’ to H. 


Table 3.7: Character Table of H 


Classes 1 2 3 4 5 
Size 1 5 5 5 4 
Rep il (1ON(3 AY." (149.8) | (12.5.3) | (4.5.3.9) 
x! 1 1 1 1 1 
Ae 1 i = Ee f 
x? 1 =] 1 21 1 
ae - a af i f 
X= fa=4/ b=0 c=0 d=0 f=-l 
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Chapter 4 


Isomorphism Type of Groups 


4.1 Extensions and Related Definitions 

Definition 4.1. /Rot95/ G is a semi-direct product of two subgroups H and K if: 
1.K4AG,Q<G. 
2. G=KaQ. 
3. KNQ=1. 


Definition 4.2. /Rot95/ Let G be a group. We say G is a direct product of two 
subgroups H and K if: 


i HaG, Kae. 
2. G=HK. 


8 HANK =1. 


Definition 4.3. /Rot95/ Let G be a group and H, N <G such that |G| =|N||H]|. G is 
a central extension by H if N is the center of G. We denote this byG = N°H. 


Definition 4.4. /Rot95/ Let G be a group and H, N < G such that |G| = |N\|H|. 
G is a mixed extension by H if it is a combination of both central extensions and 
semi-direct products, where N is the normal subgroup of G but not central. We denote 


this byG= N°: H. 
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Definition 4.5. /Rot95/Let G be a group. A composition series of G given by: 
G=G)2G,2°::-2Gr,=1 

is a normal series where, for alli, either Gj41 is a maximal normal subgroup of G; or 

Gis = Gj. 


Definition 4.6. /Rot95/ If group G has a composition series, the factor groups of its 


series are the composition factors of G. 


Definition 4.7. /Rot95/ The Dihedral Group D,,, n even and greater than 2, groups 
are formed by two elements, one of order } and one of order 2. A presentation for a 


Dihedral Group is given by < a, bla2,b?, (ab)? >. 


Definition 4.8. /Rot95/ A general linear group, GL(n,F) is the set of alln x n 


matrices with nonzero determinant over field F. 


Definition 4.9. /Rot95/ A special linear group, SL(n,F) is the set of alln x n 


matrices with determinant 1 over field F. 


Definition 4.10. /Rot95/ A projective special linear group, PSL(n,F) is the set 


of alln x n matrices with determinant 1 over field F factored by its center: 


PSL(n,F) = Ln(F) = ae 


Definition 4.11. /Rot95/ A projective general linear group, PGL(n,F) is the set 


of alln x n matrices with nonzero determinant over field F factored by its center: 


_ GL(n,F) 
PGL(.F) = Fae By 
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4.2 Extensions Examples: 


We can find the isomorphism types of the progenitors by solving the extension 
problem. To solve the extension problem we need to know the composition factors 
of groups. We will recognize in the following on four types of extensions which are 
direct product, a semi direct, central extension ,and mixed extension. Moreover, we will 


provide an example of each one. 


4.3 Semi Direct Product: 


4.3.1 Verifications of 3° : ((3? * 2°) x 2) 


We found the following finite homomorphic image from the symmetric group 


8 6 3 6 4 0 11664 which produces the following group: 


G<x,y,Z,w,h,t>:=Group<x,y,Z,w,h,t|x°2,y°2,z°2,w 4,h°2, (y*z) “2, 
(x*w°-1)°2, (y*w°-1)°2,z*w°-lx«zew, 

wo -2*h,x*y*xx*yew -1,xX*zZ*x*z*eh,t°2, (t,x), (y*t) 6, 

(zxwet) 73, (z*x*t) 76, (y*xx*t) 74, (y*xx*z*t) “00>; 


Our order group is equal 11664, and this group has the following composition factors: 


Cyclic (2) 
Cyclic (2) 
Cyclic (2) 
Cyclic (3) 
Cyclic (3) 
Cyclic (2) 
Cyclic (3) 


Cyclic (3) 


Cyclic (3) 
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| Cyclic (3) 
1 


Now, we will prove the isomorphism type of G. 

The composition series for G is: 

G = Gp D Gy D Go D G3 D G4 D Gs D Gg D G7 D Gg D Gog D Gio where Gig = 1. 

The composition factors are: 

G = (Go\G1)(Gi\G2)(G2\G3)(G3\G4) (Ga\G5) (Gs \G6)(Ge\G7)(G7\Gs)(Gs\Go)(Go\Gio) 
=(G0\G1)(Gi\G2)(G2\G3) (G3\Ga4) (Ga\Gs5)(Gs\Ge)(Ge\G7)(G7\Gs) (Gs\Go) (Go\1) 
=(Go\G1)(Gi\G2) (G2\G3) (G3\G4)(Ga\Gs)(Gs\G6) (G6\G7)(G7\Gs) (Gs\Go)Go 
=C30303C0302C3C3C2C2C2 


The normal lattice of G is as follows: 


Normal subgroup lattice 


[30] Order 11664 Length 1 Maximal Subgroups: 23 24 25 
26 27 28 29 

29] Order 5832 Length 1 Maximal Subgroups: 16 17 20 
28 Order 5832 Length 1 Maximal Subgroups: 17 18 21 
27 Order 5832 Length 1 Maximal Subgroups: 16 19 21 
26] Order 5832 Length 1 Maximal Subgroups: 18 19 20 
25] Order 5832 Length 1 Maximal Subgroups: 20 21 22 
24] Order 5832 Length 1 Maximal Subgroups: 16 18 22 
23 Order 5832 Length Maximal Subgroups: 15 17 19 22 
22 Order 2916 Length 1 Maximal Subgroups: 11 13 

2. Order 2916 Length 1 Maximal Subgroups: 13 

20 Order 2916 Length 1 Maximal Subgroups: 13 

19 Order 2916 Length 1 Maximal Subgroups: 9 13 

18] Order 2916 Length 1 Maximal Subgroups: 12 13 14 
17 Order 2916 Length 1 Maximal Subgroups: 10 13 

16 Order 2916 Length 1 Maximal Subgroups: 1 

15 Order 1944 Length 1 Maximal Subgroups: 9 10 11 

é Order 1458 Length 1 Maximal Subgroups: 8 

13 Order 1458 Length 1 Maximal Subgroups: 7 8 

12 Order 1458 Length 1 Maximal Subgroups: 5 8 

11 Order 972 Length 1 Maximal Subgroups: 7 

0 Order 972 Length 1 Maximal Subgroups: 7 

9 Order 972 Length 1 Maximal Subgroups: 7 


8 Order 729 Lengt Maximal Subgroups: 4 6 
7 Order 486 Lengt! Maximal Subgroups: 

6] Order 243 Length 1 Maximal Subgroups: 3 
5] Order 162 Length 1 Maximal Subgroups: 4 

4 Order 81 Length 1 Maximal Subgroups: 3 
3] Order 27 Length 1 Maximal Subgroups: 2 

2 Order 3 Length 1 Maximal Subgroups: 1 
1] Order 1 Length 1 Maximal Subgroups: 


Next, we will ask Magma about the largest abelian group by this loop: 


for i in [1..#NL]do if IsAbelian(NL[i]) then i;end if;end for; 


L 


2 
3 
4 
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So, we see that the largest abelian group is NL|4] of order 81 from our normal lattice 


of G1. We first need to find the isomorphism type of NL[4], which has 3 possibilities, 


such as 3 x 3 x 3 x 3, 34, and 3? x 3. 
We check and find the following: 


Permutation group acting on a set of cardinality 729 
Order = 81 = 3°4 

X3= [37 3737314 

IsIsomorphic (NL[4],AbelianGroup (GrpPerm, (X))); 

true 


As a result, we found that NL[4] = 34. Now, we can produce a presentation for NL[4] 


as follows: 


FPGroup (NL[4]); 

Finitely presented group on 4 generators 
Relations 

S13 


| 
H 
Q. 


nD UW mM 
Dm WN 
ow w 
Il | 
1 
Q. 
DODD 


(Sel, 8.2) = Ta(s) 
(Sel. Sud) STs) 
(942, 9.3) = Td($) 
(S.1, $.4) = Td($) 
(9.2, 3.4) = Td ($9) 
($.3, $.4) = Id($) 
S 

( 


Vy 
a,d), (b,d), (c,d) >; 
ff,ss,kk:=CosetAction(S,sub<S|Id(S)>); 
s,t:=IsIsomorphic(ss,NL[4]); 
S; 
true 


Now, we will factor G1 by NL[4] resulting q which is the quotient group. 


H:=NL[4]; 

gq, ££:=quo<G1|NL[4]>;q; 

Permutation group q acting on a set of cardinality 12 
Order = 144 = 2°4 x 3°2 


Consider the composition factor of q as follows: 
CompositionFactors (q); 

G 

Cyclic (2) 

Cyclic (2) 

Cyclic (3) 


Cyclic (2) 


Cyclic (2) 


Cyclic (3) 


We will now find the normal lattice for q by this Magma loop: 


nl:=NormalLattice (q) ; 


nis 
Normal subgroup lattice of q 


[21] Order 144 Length 1 Maximal Subgroups: 14 15 16 
LF V8: 1.920 


<a,b,c,d>:=Group<a,b,c,d|a°~3,b°3,c°3,d°3, (a,b), (a,c), (b,c), 
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3 Order 3 

2 Order 3 
iL. Order 3 
[10 Order 3 

9 

8 

7 


Order 3 
Order 3 
Order 3 


6 ] Order 1 
] Order 1 
4 Order 1 


3 Order 9 


2] Order 2 


1 Order 1 


20 Order 72 Len 
19 Order 72 Len 
] Order 72 Len 
Order 72 Len 


g 
g 
8 g 
Ane Order 72 Lengt 
16 Order 72 Leng 
15 g 
4 g 


Order 72 Len 


th 1 Maximal 

th 1 Maximal 

th 1 Maximal 

th 1 Maximal 

th 1 Maximal 

th 1 Maximal 

th 1 Maximal 

6 Length 1 Maximal 

6 Length 1 Maximal 
g 

6 Length 1 Maximal 

6 Length 1 Maximal 

6 Length 1 Maximal 

6 Length 1 Maximal 

6 Length 1 Maximal 

8 Length 1 Maximal 

8 Length 1 Maximal 

8 Length 1 Maximal 

Length 1 Maximal 

Length 1 Maximal 

Length 1 Maximal 


We now check if we have a direct product or 


ubgro 
ubgro 
ubgro 
ubgro 
ubgro 
ubgro 
ubgro 


NANNnNNWNN 


ubgro 
ubgro 
ubgro 
ubgro 
ubgro 
ubgro 
ubgro 


ANNnNNWN WN 


Subgro 
Subgro 
Subgro 
Subgro 


Subgro 


Subgro 


ups: 
ups: 
ups: 
ups: 
ups: 
ups: 
ups: 


ups: 
ups: 
ups: 
ups: 
ups: 
ups: 
ups: 


ups: 


ups: 


ups: 


ups: 


ups: 


ups: 


annarks oo 


con7rrFown7tIwo ~ 
4 


33 


not, so we want to see if q is collected 


of a direct product. As a result, we could find the direct product between two normal 


subgroups which are nl[{17] and nl{2]. The product of their order give me the order of 


q=144. To make sure by this Magma code: 


E:=DirectProd 
IsIsomorphic ( 
true 


uct (n1[17],nl[2]); 
BE, ); 


We find that q is isomorphic to nl[17] and nl[2], where nl[17] & 3? *« 23 and nl[2] ~& 2. 


The presentation of g = nl{17] x nl{2] which is obtained from FPGroup(q): 


H<e, f,g,h,o0>:=Group<e,f,g,h,o|e°2,f°2,g°2,h°2,0°2, (exg) “2, 
(f*g) “2, (exh) *2, (f * h)*2,(g * h)%*2, (ex 0) %2, 


(g *0)*2,exfxexfxh, hxoxehxgxoxhxeo, (fxoxfeox h) 72>; 
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ff,ss,kk:=CosetAction (H, sub<H|Id(H)>); 

s,t:=IsIsomorphic(q,ss)j; 

S; 

true 

Now, we will check the relation between NL/4] and q. Since our q is not the center of 
G, so we do not have a central extension. Also, we do not have direct product between 
NL/[4] and q, so we do not have direct product. Then, we only have two options which 
are a semi direct product or mixed extension. 


We will label our generators of q as follows: 


EE:=q! (2, 4) (5, 6) (7, 11) (8, 10) (9, 12); 
FF:=q! (1, 2) (3, 4) (5, 7) (6, 9) (8, 12) (10, 11); 
GGsSqt(iy.-3)- (2). Aye (6) 47>- OY (84-10) Cd, 12) 
DD:=q! (1, 3) (2, 4) (5, 8) (6, 10) (7, 12) (9, 11); 
KK:=q! (2, 5) (4, 6) (7, 11) (9, 12); 


A:=G1!NL[4].1; 
B:=G1!NL[4] .2; 
C:=G1!NL[4].3; 
D:=G1!NL[4] .4; 
H:=G1!T[2]; 
J:=G1!T[3]; 
I:=G1!T[4]; 
M:=G1!T[5]; 
O:=G1!T[6]; 


Here a, b, c, and d represent elements of NL[4], and e, f, g, h, and o represent elements 
of q. Where A, B, C, and D & a, b, c, and d, respectively and H, J, 1, M, and O Se, f, 
g, h, and 0, respectively. Now, we need to check the action q on NL|4] by the following 


Magma code: 


[1..3] do if A*H eq A*ixB*jxC*kxD*1 then 


for i,j,k,l in 
i,j,k,1; 


end if; end for; 


13 3 


3 ----> a°e=a 


for i,j,k,1l in 
i,j,k,1; 
end if; 

L 3.1 


[lee 


end for; 
3 ---> a°f=axc 


23] 


do if A°J eq Aix! 


B° j*C°k*D*1 then 


for i,j, 
ty pkey 7 
end if; 
2.-3°3°.3 
FOr <1, Jy 
ig ste kyl; 
end if; 
Lo 33 
FOr <3], 
Lp aeky Ly 
end if; 
Ber 32435 79 
for i,j, 
dep Tpke ly 
end if; 
3.4: 323 
LOK 4.7 
Pea ke ly 
end if; 
Se Ea eS 
BOK hy; 
Ly Dip Ky LF 
end if; 
3°23) 3 
LOR Ay 
pap ky ly 
end if; 
Oe, ote8 
For 47-47 
Ly Tpke ly 
end if; 
3 3:3 
for i,j, 
yp pp ky LF 
end if; 
3.12 3 
FOr a]; 
ey pkey LF 
end if; 
323° -2° 3 
£ Om 42h 7 
yp ky lj 
end if; 
368 2.53 


ket Ade [1237 


end for; 
--->a“g=a°2 
k,l in [1..3] 


end for; 
---> a°h=axb 
eek ine P23] 


end for; 
=SeaP ca Osa 2 


key ds any oles] 
end for; 
—--—>b*e=b 

ky aes Ph 3] 
end for; 

—--> b°f=bxec 
k,l in, [..3] 
end for; 
—---> b°g=b*2 
kek aan. SEAS t3 
end for; 
—---> b*h=b*2 
kick. an Elie. 3] 
end for; 
----> b*°o=b 


kak ane fen 34] 


end for; 


----> c’e=b*ec™ 


ky ks jane li 3] 


end for; 
STE=PoC Eee 2 
Ko es fee) 


end for; 
--=>e"g=c"2 


do 


do 


do 


do 


do 


do 


do 


do 


do 


2 


do 


do 


if 


AE 


if 


if J 


if | 


ae < 


if | 


if 


aE 


if 


AE 


A*O 


B*O 


eq 


eq 


eq 


eq 


eq 


eq 


eq 


eq 


eq 


eq 


eq 


Avix 


Avix 


Avix 


B*4*C*k*D7*1 


B*4*C*k*D7*1 


B*4*C*k*D7*1 


B*4*C*k*D7*1 


B*3*C*k*D7*1 


B*3*C*k*D7*1 


B*3*C*k*D7*1 


B*~3*C*k*D7*1 


B*~3*C*k*D7*1 


B*3*C7k*eD*1 


B*3*C*k*D7*1 


then 


then 


then 


then 


then 


then 


then 


then 


then 


then 


then 
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for i,j,k,l in [1..3] do if C°M eq A*i*B*4j«*C*k*D*1 then 
4p yk ly 

end if; end for; 

3.3 2 3 ----> c*h=c*2 

for i,j,k,l in [1..3] do if C°O eq A°i*B*4j*C°k*D7*1 then 
igdvky lL; 

end if; end for; 

3.3 12 ----> c*o=crd*2 

for i,j,k,l in [1..3] do if D°H eq A°i*B*4j*C°k*D*1 then 
Leek 

end if; end for; 

3 3 3 2 ----> d*e=d*2 

for i,j,k,l in [1..3] do if D°J eq A*°i*B*4j«*C°k*D*1 then 
i Jp Kp ly 
end if; end for; 

3.3 3 1 ----> d*f=d 

for i,j,k,l in [1..3] do if D°I eq A*°i*B*4j*C°k*D*1 then 
ppg es areal es 
end if; end for; 

3.3 3 2 ----> d*g=d*2 

for i,j,k,l in [1..3] do if D°M eq A*i*B*4j*C°k*D7*1 then 
Ly digk yl} 
end if; end for; 

3 3 3 1 ---->d*h=d 

for i,j,k,l in [1..3] do if D°O eq A°i*B*4j*C°k*D*1 then 
Tp ike 
end if; end for; 

3 3 3 2 ---->d*o=d*2 


Finally, we put presentations of q and NL[4] together with a® = a,a/ = a*c, 
oe =a a" neha jo bo Sb, B= bee.8 = b= be Sb, 

&=be P=? A =e P=, 08 =cx dd =a, df =d,d9 = a, 
desde az. 

Thus, 


M<a,b,c,d,e,f£,g,h,o>:=Group<a,b,c,d,e,f,g,h,0|a°3,b°3, 
c°3,da°3, (a,b), (a,c), (b,c), (a, da), (b,d), (c,d), 
e°2,£°2,9°2,h°2,0°2, (exg) “2, (fxg) “2, (exh) “2, 

(£ *« h)*2,(g * h)*2, (ex 0)*2, (g *0)°2, 
exfxexfxh,h*xoxh*xgroxhxo, (f *o *« £ xox h) 72, 

a°e=a,a° f=axc,a°g=a~2,a h=axb,a°o=a2, 

b*e=b,b* f=b*c,b* g=b*°2,b7h=b*2, 
b*o=b,c°e=b*c°2,c° f=c*2,c° g=c"2,c°h=c°2,c°o=crd"2, 
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d*e=d*2,d° f=d, d° g=d*2, d*h=d, d* 0o=d*2>; 
We will now check if M is given above and G1 are isomorphic ? 


#M; 
11664 
#G1; 
11664 
£1,M1,k1:=CosetAction (M, sub<M|Id(M) >); 
s:=IsIsomorphic(G1,M1); 

S; 

true 


Therefore, M and G1 are isomorphic. The isomorphism type of our group G is 


BPs (87 4D?) se-9- 
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4.4 Verification of 2° : PGL(2,7) 


We begin the process with the presentation of G given as follows: 


G<w,X,VY,Z,t>:=Group<w, X,y,Z,t|w°2,x°2,y° 4,z°2, (wxy°-1) 72, 
x*y°-lexxy, 

VY -2*Z,WkX*WKX*Z,C°2, (t,w), (x*t) 78, (y*xt) 73, (x*wet) 70, 
(wex*ey*xt) “0, (wex*yxt) “7>; 


The order of our group is equal 172032. We will now prove the isomorphism type of G. 
To prove that we have to know the compositions factors of G1. 


CompositionFactors (G1); 
G 
Cyclic (2) 


Cyclic (2) 


Cyclic (2) 


The composition series for G is: 
G = Go 2 G1 D G2 D G3 D G4 D G5 D Go D G7 D Gg D Go D Gio 2D Git 


where Gj, = 1. 


The composition factors are: 


G = (Go\G1)(Gi1\G2)(G2\G3)(G3\Ga) (G4\G5) (Gs \Ge)(G6\G7)(G7\Gs) 
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(Gg\G9)(Go9\Gi10)(Gio\G11) 

=(Go\G1)(Gi1\G2)(G2\G3) (G3\Ga4)(Ga\Gs)(Gs\Ge) 
(G6\G7)(G7\Gs) (Gs\Go)(Go\Gio)(Gio\1) 
=(Go\G1)(Gi\G2)(G2\G3) (G3\G4) (Ga\Gs)(Gs\Ge6)(G6\G7)(G7\Gs) 
(Gg\G9)(Go9\Gi0)Gio 

=C2C2C2C2C2C2C'2C2C2PGL(2, 7)C2. 


The normal lattice of G1 is as follows: 


Normal subgroup lattice 

[9] Order 172032 Length 1 Maximal Subgroups: 6 7 8 
[81 Order 86016 Length 1 Maximal Subgroups: 5 

7] Order 86016 Length 1 Maximal Subgroups: 5 

6 Order 86016 Length 1 Maximal Subgroups: 4 5 
pe Order 43008 Length 1 Maximal Subgroups: 3 
ie Order 512 Length 1 Maximal Subgroups: 2 3 
et Order 256 Length 1 Maximal Subgroups: 
ior Order 2 Length 1 Maximal Subgroups: 
aie Order 1 Length 1 Maximal Subgroups: 


Looking at the normal lattice of G we note the largest abelian group NL[4] of order 512. 


NL[4]; 
Permutation group acting on a set of cardinality 10752 
Order = 512 = 2°79 


We can write the isomorphism type of NL[4] such as 29. We will use this loop to make 
sure NL[4] & 2°. 
X:=[2,2,2,2,2,2,2,2,2]; 


IsIsomorphic (NL[4],AbelianGroup (GrpPerm, (X))); 
true 


Now, we will write the presentation of NL[4] by FPGroup(NL[4]). 


S<w,X,y,Z,h,0,p,u, r>:=Group<w, xX, y,Z,h,o,p,u,r| 
w 2,X°2,;y°2,2°2,n°2,0°2,p°2,u 2,6°2, (wo* x) 72, 
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)°2,(% * z)72,(y * 2)°2, 


( )*2 Z 

(w * h)*2, (x * h)*2, (y* h)*2, (z * h)72, (w * 0)72, 

(X* 0) 72, (y * 0)72,(z * 0)72, (h * 0)°2, (w * p)*2, 

(x * p)*2, (y * p)*2, (z* p)*2, (h * p)*2,(0 * p)°2, (w * u) 72, 
(x * u)*2, (y * u)*2,(z * u)*2,(h * u)*2,(0 * u)*2,(p * u)*2, 
(We 20) * 2 (ee YO 2g ly ee EYP 27 (ao we BY 2 ee By 

(Oo * r)72, (pe r)72, (U * £)72>; 


ff,ss,kk:=CosetAction(S,sub<S|Id(S)>); 
s,t:=IsIsomorphic(ss,NL[4]); 

S; 

true 


Next, we will factor G1 by NL[4] resulting q which is the quotient group. 


H:=NL[4]; 
gq, ££:=quo<G1|NL[4]>; 
ar 


Permutation group q acting on a set of cardinality 8 
Order = 336 = $2°4 *« 3 * 7S 


So, we found the order of q=336 and the composition factors of q as follows: 


CompositionFactors (q) ; 
G 
Cyclic (2) 


A(1, 7) = L(2, 7) 


IsIsomorphic (PGL(2,7),q); 
true 


We can see that q is isomorphic to PGL(2, 7). 

Now, we will find our presentation for q by using FPGroup(q). It gives us the following 
presentation for q: 
H<a,b,c>:=Group<a,b,c|a°2,b°2,c°2, (axb) “2, (cb) 73, 

(axc) “8, beaxctrb*xaxcxbeaxcexbeaxctraxbecxarb*xcraxb«c>; 
ff,ss,kk:=CosetAction (H, sub<H|Id(H)>); 

s,t:=IsIsomorphic(q,ss)j; 

Ss; 

true 

From previous steps, we could know NL[4] and q what are. Now, we want to figure 


out what the isomorphic types between them since our q is not the center of G, so we 


do not have a central extension. 


Al 


Also, there is no normal subgroup of order 336 in G 


that intersects with NL/4] of order 512. Therefore, we do not have a direct product 


extension. So, it remains two possibilities which are a semi direct or mixed extension. 


If we can write a presentation with the action of the generators of H on the generators 


of NL[4], so G is a semi-direct product. 


T:=Transversal (G1,NL[4]) 
EE:=q! (1, 2) (3, 4) (5, 6) 
FF:=q! (1, 2) (5, 7) (6, 8 
GG:=q! (2, 3) (4, 5) (6, 8) 
f£(T[2]) eq EE; 

true 

fE(T[3]) eq FF; 

true 

f£(T[4]) eq GG; 

true 

gq eq sub<q|EE,FF,GG>; 
true 

A:=G1!NL[4].1; 
B:=G1!NL[4].2; 
C:=G1!NL[4].3; 
D:=G1!NL[4] .4; 
F:=G1!NL[4].5; 
H:=G1!NL[4].6; 
P:=G1!NL[4].7; 
O:=G1!NL[4].8; 
V:=G1!NL[4] .9; 
J:=G1!T[2]; 

T:=G1!T[3]; 

M:=G1!T[4]; 


(7, 
i 


’ 


8); 


Next, we need to store the generators of NL[4]. We will indicate to the generators of 


NL[4] as A, B, C, D, F, H, P, O 


and V and the generators of q as EE, FF, and GG. 


Now, we can use the following code to determine the action of q on NL/4]. 


for i437, kL, mm; 1417-3) 7-K 
A*ixB*3*C*k*D°1*F°m*H* mm 
1,j3,k,1,m,mm,ii,jj,kk; e 
T82s Ae 2 222 eo 2 

for i, j,k,1,m,mm,ii,jj,k 
A*ixB*3*C*k*D°1*F°m*H*mm 
e 


i,j,k,1,m,mm, ii, jj,kk; 


k in 


[1..2] do if A°J eq 
*P*iixO°Jj*V°kk then 
nd if; end for; 


k in [1..2] do if A°I eg 
*P*iixO°Jj*V°kk then 
nd if; end for; 
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TAQ Bo? 82 222 

for i,j,k,1,m,mm,ii,jj,kk in [1..2] do if A°M eg 
A*ixB*4*C*k*D°1l*F°m*H*mm«*«P*iixO0744*V*kk 

then i,j,k,1,m,mm,ii,jj,kk; end if; end for; 

1 e222. 2" De BOD 2 


We indicated here only the generator A of NL[4] which be raised by J, I and M. All 
the elements in NL[4] are order 2. We will repeat this process for each of remaining 
generators of NL[4] (B,C,...,V) which can be found in the appendix. Now, we can find 
the action of q on NL[4] which are w* = we y,w? =wxy,we =w,ct=a2%y,2° = 2, 


e VRE Sy eee? Sy BPS, 


b 


CS EA Sy ae ae 


SY ahgh’ = URXhe Oru, 0 = YX Le OR PRU O HE oRine = yx ip =D; 


p? =p, p° = y*hxoxpxr,u* = u,u® = u,uo = z*0, 7? = per, 7? = purr, re = yXZRr . 


Lastly, we will collect the presentation NL[4] and q with the action of q on NL[4] words 


into one presentation as follows. 


H<w,X,Vy,Z,h,0O,p,u,r,a,b,c>:=Group<w,x,y,Z,h,0,p,u,r,a,b,c| w2, 
K°2,yY°2,2°2,h°2,0°2,p°2,u°2,r°2, (w * x)°2, 

(w * y) 72, (Kk * y)7°2, (w * z)72, (x * z)°2,(y * z)°2, 

w * h)*2,(x * h)*2, (y* h)*2, (z * h)72, (w * 0)72, 

x* 0) °2,(y * 0) °2,(z * 0)72,(h * 0) 72, (w * p)*2, (x * p)*2, 

y * p)°2, (z* p)°2, (h * p)*2,(o * p) “2, ( 

x * u)°2,(y * u)*2,(z * u)*2,(h * u)7*2, 

o * u)°2,(p * u) 72, (w * rv) 72, (x* vr) 72, (y * £)°2,(z * r)72, 
(h *r) 72, (O*r) “2, (p*xr) “2, (U*xr) “2,W a=wry,W b=wty, WwW C=w, 


; w* u) 2, 


X°a=x*xy,X° D=xK, X° C=xX*y*Z,y a=y,y b=y,y° Cc=zZ, 

Z  a=yxzxu, Zz b=y*z,z°c=y,h°a=h,h*b=y*h,h* c=y*h*oxu, 

O° a=y*xh*xoxpx*xu, O° b=xx*0O*u,O° C=y*U,p a=p, Pp b=p,p c=y*hx*oxper, 
u* a=u, U b=u, U" C=Z*0, FY a=pxr, Fr b=peurr, cr c=y*z*r,a 2,b°2, 
c*2, (axb) “2, (c*b) 73, (axc) “8,b*xaxcxbeaxcebeaxcxbxaxcka 
xkb*xcxaxb*xctraxbx«c>; 

#H; #G1; 

172032 

f1,H1,k1:=CosetAction (H, sub<H|Id(H)>); 
s:=IsIsomorphic(Gl,H1);s; 

true 


Therefore, we have semi direct G & 2° : PGL(2,7) 
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4.5 Central Extension 


To investigate an extension is a central extension, or not we first need to 
compute the center of our group. If it is larger more than one and equal the largest 


abelian group, so we will have a central extension. 


4.5.1 Verification of 2°S¢ 


We begin the process with the presentation of G given as follows: 


G<w,X,Vy,Z,t>:=Group<w, x,y,z,tlw°2,x°2,y 4,2°2, (wxy°-1) “2,x*«y°-1*xxy, 
VY -2*Z,WkX*WHX*Z,C°2, (t,w), (x*t) 78, (xxy°-lLet) 75, (y*t) “4, (x*xwet) 70, 
(Wwex*y*xt) “5, (wexx*yxt) “00>; 


The order of our group is equal 1440. We will now find the compositions factors of our 


group to recognize if we have a central extension or not. 


CompositionFactors (G1); 
G 

Cyclic (2) 
Alternating (6) 


Cyclic (2) 


The composition series for G is: 

G = Gp > Gi D Go D G3 where G3 = 1. 
The composition factors are: 

G = (Go\G1)(Gi\G2) (G2\G3) 
=(Go\G1)(G1\G2)(G2\1) 
=(Go\Gi)(Gi\G2)G2 

=C2 AgC2 


Normal subgroup lattice 


7] Order 1440 Length 


6 Order 720 Length 
5 Order 720 Leng 
4 Order 720 Leng 


ct ct 


[3] Order 360 Length 


2] Order 2 Length 


[1] Order 1 Length 


Maxim 
Maxim 
Maxim 
Maxim 


Maxim 


Maxim 


Maxim 


al 


al 
al 
al 


al 


al 


al 


NWN n 


ubgro 
ubgro 
ubgro 
ubgro 
ubgro 


ubgro 


ubgro 


ups: 


ups: 


ups: 


ups: 


ups: 


ups: 


ups: 


5 
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Now, Magma will help us to determine if G1 has a center. If we have a center then, we 


are looking for which element in the normal lattice is the center. 


Center (Gl); 


Permutation group acting on a set of cardinality 360 


Order = 2 
Center(Gl) eq NL[2]; 

true 

The presentation of NL[2] 
S<e>:=Group<e|e*2>; 


is 


ff,ss,kk:=CosetAction(S,sub<S|Id(S)>); 
s,t:=IsIsomorphic(ss,NL[2]); 


S; 
true 


Next, we can factor Gl by the center and define the isomorphism type of the resulting 


factor group q. We can see the compositions factors of q and normal lattice as follows: 


CompositionFactors (q); 


Cyclic (2) 


Alternating (6) 


rP— + —Q 


nl:=NormalLattice(q); 
nl; 
Normal subgroup lattice 
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[3] Order 720 Length 1 Maximal Subgroups: 2 


[2] Order 360 Length 1 Maximal Subgroups: 1 


[1] Order 1 Length 1 Maximal Subgroups: 


We could figure out from the compositions factors of q that gq = Sg where the order of 
Se is equal 720 

IsIsomorphic (SymmetricGroup (6) ,q); 

true 

We find a presentation of Sg by [WB99] as a reference, then we use Magma to make 
sure if our presentation is correct or not as follows: 


H<a,b,c>:=Group<a,b,c|a°2,b°2,c°2, (axb) “2, 

(b *c)*4,beaxcxbxaxcxbearxcraxbx«cxaxbDx«c, 

(axc) “8,cxaxckbectraxcexb*«cxbxarxcebecxeaxcxb*xcxarctrb>; 
ff,ss,kk:=CosetAction (H, sub<H|Id(H)>); 
s,t:=IsIsomorphic(q,ss) ; 

S; 

true 


Thus, our presentation of Sg is correct. Then, we have to write the generators of Sg in 


terms of the generators of the center. Now, we need to find transversals. 


T:=Transversal(Gl1,NL[2]); 


EE:=q!q.2; 
FF:=q!q.3; 
GG:=q!q.5; 


gq, ££:=quo<G1|NL[2]>; 
fE(T[3]) eq FF; 


true 
fF(T[2]) eq EE; 

true 

ff(T[4]) eq GG; 

true 

q eq sub<q|EE,FF,GG>; 
true 

A:=G1!NL[2] .2; 
J:=G1!T[2]; 
I:=G1!T[3]; 
M:=G1!T[4]; 
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J, I, and M represent the generators of Sg and A represents NL[2] which is the center. 


Now, we can use the following code to determine the action of q on the center. 


for iin [1..2] do if A*J eq A”i then i; end if; end for; 

1 ---> e*J=e 

for iin [1..2] do if A*I eq A”“i then i; end if; end for; 

1 ---> e*I=e 

for iin [1..2] do if A°M eq A”i then i; end if; end for; 

1 ---> e*M=e 

Now, we add these relations e’ = e, e! = e, and e“@ = e with the presentation of center 


to the presentation of q and check if it is isomorphic to G. 


H<a,b,c,e>:=Group<a,b,c,e|a°2,b°2,c°2, (axb) “2, (b«xc) 74, 
beaxceb*xaxcxbxaxctxa\*xb*xcxaxbec, (a * c) “8, 

cx axcrk bx crx*wa * Cc xb * ce D* ax Cc * Dk C * ax c 
xb * C * a * Cc * b,e*2,e a=e,e° b=e,e°c=e>; 

#H; 

1440 

#G1; 

1440 

f1,H1,k1:=CosetAction (H, sub<H|Id(H)>); 
s:=IsIsomorphic(Gl,H1); 

Ss; 

true 


Therefor, we have a central extension 2°S¢. 


4.6 Isomorphism Type of G = 2*!° : (54: (Dy x S3)) 


Our presentation is given by: 


2 zxw lezew, w2xh, vx 


G=< 2,y,2,w,h,t|x?, y?, 27, wt, h?, (y*z)”, (xxw1)?, (yew 1) 
yxcxyxu!, cxzxcezh, t?, (t,x), (yxt)4, (zewet)®, (zeaxt)?, (yerrt), (yearext)® >. 
Now, we will use a few Magma commands to find a minimal faithful permutation rep- 
resentation of G1. To Create an image of G, we will use this code. 
£,G1,k:=CosetAction (G, sub<G|x,y>);G1; 

30000 


To find all subgroups of G, and gather all subgroups which are found in SL, we will use 


the following codes. 


AT 


SL:=Subgroups (G1); 

T :={X*‘subgroup: X in SL}; 
#T; 

724 


To determines faithful permutation representations of G. 


TrivCore := {H:H in T| #Core(G1,H) eq 1}; 
#TrivCore; 
670 


This code gives us permutation representations of the smallest degree. 


mdeg := Min({Index(Gl,H):H in TrivCore}); 


To determines how many faithful permutation representations have a minimal number 
of letters by the following code. 
Good := {H: H in TrivCore| Index(Gl,H) eq mdeg}; 


#Good; 
6 


To picks a representative from Good. 


H := Rep(Good); 
#H; 
1000 


To create a permutation representation of the chosen representative from Good. 


£,G1,K := CosetAction(G1,H); 
Gl; 
Originally Permutation group Gl acting on a set of 


cardinality 3750 

Order = 30000 = 2°4 *« 3 *« 574 

now, our Permutation group Gl acting on a set of 
cardinality 30 

Order = 30000 = 2°4 *« 3 x 574 


Now, we will take the permutation representation of G1 which is found above and find 


its isomorphism type. Our composition factors of our group as follows: 
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CompositionFactors (G1); 


Cyclic (2) 


Cyclic (3) 


Cyclic (2) 


Cyclic (2) 


Cyclic (2) 


Cyclic(5) 


Cyclic(5) 


Cyclic(5) 


Cyclic(5) 


Now, we will prove the isomorphism type of Gl. 

The composition series for Gl is: 

G=Go D Gi D Go D G3 D G4 D Gs D Gg D G7 D Gg D Go where Gop = 1. 

The composition factors are: 

G = (Go\G1)(Gi\G2)(G2\G3) (G3\Ga) (Ga\G5) (Gs\Ge)(Ge\G7)(G7\Gs)(Gs\Go) 
=(Go\G1)(G1\G2)(G2\G3) (G3\Ga4) (G4\Gs) (G5\G6)(G6\G7)(Gr7\Gs) (Gs\1) 
=(Go\G1)(Gi\G2)(G2\G3)(G3\Ga) (Ga\Gs)(Gs\Ge6)(G6\G7)(G7\Gs)Gs 
=C505C5C5 0202020302 


Next, we have to find the normal lattice of G and ask Magma about the largest abelian 


subgroup in the normal lattice. 


NL:=NormalLattice(Gl); NL; 
[26] Order 30000 Length 1 Maximal Subgroups: 19 20 21 22 23 
24 25 


[25] Order 15000 Length 1 Maximal Subgroups: 14 15 16 
[24] Order 15000 Length 1 Maximal Subgroups: 12 14 17 
[23] Order 15000 Length 1 Maximal Subgroups: 15 17 18 
[22] Order 15000 Length 1 Maximal Subgroups: 12 16 18 


AQ 


21] Order 15000 Length 1 Maximal Subgroups: 13 16 17 
20 Order 15000 Length Maximal Subgroups: 12 13 15 
19 Order 15000 Lengt! Maximal Subgroups: 11 13 14 18 
[18 Order 7500 Length 1 Maximal Subgroups: 7 10 
17 Order 7500 Length 1 Maximal Subgroups: 1 
16] Order 7500 Length 1 Maximal Subgroups: 10 
TD Order 7500 Length 1 Maximal Subgroups: 10 
14] Order 7500 Length 1 Maximal Subgroups: 6 10 
13] Order 7500 Length 1 Maximal Subgroups: 5 10 
[12 Order 7500 Length 1 Maximal Subgroups: 8 9 10 
[11 Order 5000 Length 1 Maximal Subgroups: 5 6 7 
0 Order 3750 Length 1 Maximal Subgroups: 3 4 
9 Order 3750 Length 1 Maximal Subgroups: 4 
8 Order 3750 Length 1 Maximal Subgroups: 4 
7 Order 2500 Length 1 Maximal Subgroups: 3 
6] Order 2500 Length 1 Maximal Subgroups: 3 
5 Order 2500 Length 1 Maximal Subgroups: 3 
4 Order 1875 Length 1 Maximal Subgroups: 
3 Order 1250 Length 1 Maximal Subgroups: 2 
2] Order 625 Length 1 Maximal Subgroups: 1 
1 Order 1 Length 1 Maximal Subgroups: 
So, we see that the largest abelian group NL[2] of order 625 by the normal lattice of 


G1. Now, we check if NL[2] isomorphic to 54 by the following Magma code. 


X:=[5,5,5,5]; 
IsIsomorphic (NL[2],AbelianGroup (GrpPerm, (X))); 
true 


Therefore, we could see that NL[2] = 5+. 
Next, we have to create a presentation for NL[2] as follows: 


S =< WwW, zr, Y, z|w°?, 2? y?, 2°, (w, 5 (w,y), (x; Y), (w, 2), (x, zs (y, z) > 7 


nl:=NormalLattice (q); 
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We could create a presentation for q as follows 
H=< e, f,g,h, vle*, f?, 97, h?, uv", (e* 9)”, (f #9), (e*h)?, (fF #h)?, (9 #h)?, (€ * v)?, (he 
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Now, we want to check if q which has order of 144 is gathered of a direct product or 


not. Thus, we could see that the direct product between two normal subgroups which 


are nl[10] and nl[7]. 


E:=DirectProd 


IsIsomorphic ( 


BE, ); 


uct (n1[10], 


nl[7]); 


true 
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Note, we found that nl{10] is isomorphic to dihedral group which is D4 and nl|[7] is 


isomorphic to symmetric group which is S53 by this Magma loop. 


nl[10]; 
Permutation group acting on a set of cardinality 12 
Order = 8 2°3 


(2, 5) (6, 8) (10, 12) 

(1, 2) (3, 5) (4, 8) (6, 7) (9, 12) (10, 11) 
(1, 3) (2, 5) (4, 7) (6, 8) (9, 11) (10, 12) 
IsIsomorphic (DihedralGroup (4),n1[10]); 
true 

n1[7]; 


Permutation group acting on a set of cardinality 12 
Order = 6 =2 x 3 

(1, 3) (2, 5) (4, 11) (6, 12) (7, 9) (8, 10) 

CL ay OY (2 283 VA) (384 “7, EL) 6%. 0) 
IsIsomorphic(nl[7],SymmetricGroup (3) ); 

true 


From the previous steps, we find q= D4 x $3 and NL[2]=5*. We do not have a central 


extension between N1[2] and q because the center of this group equal 1, so we have only 


two options to explain the relation between NL[2] and q which are a semi direct or 


mixed extension. Now, we will label our generators of q as the follows: 


EE=q!q.1 
FF=q!q.2 
GG=q!q.3 
DD=q!q.4 
CC=q!q.6 


Also, we will label our generators of NL[2] as follows: 


A=G1!NL[2].1 
B=G1!NL[2] .2 
C=G1!NL[2].3 
D=G1!NL[2].4 
Also, 

J=G1!T 
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Here w, x, y, and z represent elements of NL[2], and e, f, g, h, and v represent elements 
of q. Where A, B, C,and D = w, x, y, and z, respectively and J, I, M, O, and Q ~e, 
f, g, h, and v, respectively. Now, we need to check the action q on NL[2]. I will write 


here only action q on A, but B, C, and D will be in appendix. The Magma code: 


for i,j,k,l in [1..5] do if A°J eq A°i*B*4j*C°k*D*1 then 
Ty Spek pale 

end if; end for; 

45 5 5 ---> w°e=w"4 

for i,j,k,l in [1..5] do if A°I eq A*°i*B*4j«*C°k*D*1 then 

pa a ae ae 

end if; end for; 

445 5 ---> w*f=w74«*x74 

for i,j,k,l in [1..5] do if A°M eq A*i*B*4j«*C°k*D*1 then 

4g ip Ky LF 

end if; end for; 

5 23 1 ---> wg=x°2*y"3*z 

for i,j,k,l in [1..5] do if A°O eq A°i*B*4j*C*k*D*1 then 

iy ae ky ly 

end if; end for; 

45 5 5 ---> w°h=w74 

for i,j,k,l in [1..5] do if A°Q eq A°i*B*4j*C°k*D7*1 then 
Lig Jy yee 

end if; end for; 

155 5 ---> wov=w 


Finally, the presentation of G = 2*!6 : (54 : (D4 x 93)) as follows: 


M<w,X,V,Z,e,f,9,h,vl|lw°5,x°5,y°5,Z°5, (W,X), (w,y) 
(w,Z), (X,Z), (y,Z) pe27E 2G 2p 2,02; (exg) nee a 
(exh) °2,(f * h)*2,(g * h)*2,(e * v)72,(h * v)72, 
exfxexfxh, veexfxexve«t, GxVxgGeexVegey, 


we=w"4,w f=w° 4«x°4,wo g=x"2*y"3*z, 


wo h=w°4,w°v=w, X° e=w°2*x,x° f=x,xX°g=x"3x«y°2, 


x °h=x°4,x°v=w" 3*«x°4,y°e=w2*x 2xy°4*«z,y° f=y, 
y°g=x*«*y°2,y h=y°4,y° vaw 2x 2*y°4xz, 
Z°e=Z,Z2° £=x° 3*y°2*z2°4,2° g=wex, z°h=z2°4,Z2° vw 4*x°4xz> 
#M; 
30000 
#G1; 
30000 
£1,M1,k1:=CosetAction (M, sub<M|Id(M) >); 
s:=IsIsomorphic(G1,M1);s; 
true 
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4.7 Mixed Extensions 


A mixed extension is an incorporation of a semi-direct product and a central 
extension. When we have a center which is not the largest group, so we will have a 


mixed extension denoted :°. 


4.7.1 Verification of G 3 :* PSL(2,19) x 2 


Our presentation is given by: 
G=< y,w, tly’, w, (y *w" 1), 07, (ty), (y *t)?, (wet), (yew lst)? >. 


Also, the composition factors of this group is as follows: 


CompositionFactors (Gl); 


The composition series for G is: 

G = Gp D Gi D Go D G3 where G3 = 1. 
The composition factors are: 

G = (Go\G1)(Gi1\G2)(G2\G3) 
=(Go\G1)(G1\G2)(G2\1) 
=(Go\Gi)(Gi1\G2)G2 

=C3C2PSL(2, 19). 


Now, we can see from the normal lattice of G that NL[2] is the largest abelian subgroup. 


Normal subgroup lattice 

6 Order 20520 Length 1 Maximal Subgroups: 3 5 
ia Order 10260 Length 1 Maximal Subgroups: 2 4 
hig Order 3420 Length 1 Maximal Subgroups: 1 
11 Order 6 Length 1 Maximal Subgroups: 2 
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[2] Order 3 Length 1 Maximal Subgroups: 1 


[1] Order 1 Length 1 Maximal Subgroups: 


We find that NL[2] = 3 and has the given presentation: S <d>=<cld~3 >. 


Now, we use Magma code to find the quotient q and the normal lattice of q. 


H:=NL[2]; 
q, ££:=quo<G1|NL[2]>; 
a; 


Permutation group q acting on a set of cardinality 40 
Order = 6840 = 273 * 3°2 *« 5 *« 19 


Normal subgroup lattice 


[4] Order 6840 Length 1 Maximal Subgroups: 2 3 
rar Order 3420 Length 1 Maximal Subgroups: 1 
on Order 2 Length 1 Maximal Subgroups: 1 
aa Order 1 Length 1 Maximal Subgroups: 


Now, we will find the composition factors of q. 


CompositionFactors (q); 


We will now check if q isomorphic to PSL(2,19) x 2 or not. 


s:=IsIsomorphic(q,DirectProduct (PSL(2,19),CyclicGroup (2))); 

S; 

true 

As a result, we can say that q is isomorphic to PSL(2,19) x 2. 

Now, we will write our presentation of q by applying the FPGroup command in Magma. 
It gives us the following presentation: 


H=Group < a,b, cla”, b?, c?, (b-! a)”, (a*c)?,becxb | ecxbeced txcxaxb l*cx 
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becxb-l«xcxb«ceb xc, (bot *c), cb ecxbecebeceb | xc bl xcxbeceb | x 
cxb-lxcxbol xcxbeaxcebd | xcxb xcxbecKbecebecebd | xcxbecebecxb | >. 
Now, we will check the relation between NL[2] and q. Since NL[2] is not the center of 
G, there is no normal subgroup of order q which is 6840 so that is not direct product 
between q and NL[2]. Then, we only have two options which are a semi direct product 
or mixed extension. So, we must determine the transversals of NL[2]. 
T:=Transversal(G1,NL[2]); 

fE(T[2]) eq q.1; 

true 
f£F(T[3]) eq q.2; 
true 


£E(TE4)) -eqo.3;7 
true 


Now, we will label our generators of NL[2] which is A. Also, we have these elements d 
represents an element of NL[2], and a, b, and c represent elements of g = PSL(2, 19) x 2. 
Where J, I, and M represent a, b, and c respectively. 


A:=NL[2] .2; 
J:=G1!T[2]; 
I:=G1!T[3]; 
M:=G1!T[4]; 


Next, we will investigate the semi-direct product part of our extension, so we need to 


check the action of the generators of q on the generators of NL[2]. 


for iin [1..3] do if A*J eq A*”i then i; 
end if; end for; 

2 

for iin [1..3] do if A*I eq A*”i then i; 
end if; end for; 

1 

for iin [1..3] do if A°*M eq A“i then i; 
end if; end for; 

2 


So, we could get these relations d* = d?, d® = d, and d° = d? from the code above 
and add them to our presentation. Now, we have completed the semi-direct part of our 


presentation, so we will check a mixed extension part of our presentation. We have to 


check the presentation of q. 
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FPGroup (q); 
Finitely presented group on 3 generators 


Relations 
$.1°2 = Id($) 
$.2°3 = Id(S) 
§.3°2 = Id(S$) 
(527s & S.4y 72: S-Tats) 
($.1 * $.3)°2 = Id($) 
SO2) k~ G3 ke SEA a RS 9 Books IS 2 k- SS Be UR 

SQ si ke SBS Re SND RG BEL. SS RSA CS Se 

S.27-1 *« $.3 * S$.2 x 

3 * $.27-1 *« $.3 = Id(S) 

$.2°-1 * $.3)710 = Id($) 

3 * $.27-1 * §$ S221 eS VB 


$ 

( 

$ 23 * $.2 * $.3 * $.2 * $.3 * 
Se Sl ke Sy Be eS 2 ROS 6S ok SQ, #84 8) ke STS, KSB 
* S$.2°-1 * S$.3 * $1.2 «5.1 S§.3 *«$.2°-1 *« $.3 * $.2°-1 « 
$.3 * $.2 * $1.3 * $.2 * $.3 * $.2 * $.3 * $.27-1 x 

§.3 * $.2 *« $.3 *« $.2 * $.3 * $.2°-1 = Id(S$) 


WW * nH 


Recall that T|[2]=.1, T/3]=.2, and T|4]=.3. We use the following Magma code to inves- 
tigate which the order of elements of q changed. We found that. 


for 2 an [l..3] do 

if T[2]°2 eq A*i then i; 

end if; end for; 

3 

for iin [1..3] do 

if T[3]°3 eq A*i then i; 

end if; end for; 

3 

for iin [1..3] do 

if T[4]°2 eq A*i then i; 

end if; end for; 

3 

For &. on [1.3] -do 

if (T[3]°-1 * T[2])°2 eq A*°i then i; 
end if; end for; 

3 

£or a an [h....3] -de 

if (T[2] * T[4])°2 eq A*i then i; 
end if; end for; 

3 

Ow: As en“ be.2234]) ao. 

if T[3] *« T[4] * T[3]*-1 *« T[4] * T[3] * T[4] 
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ADL STORE eT]. oe PY ee ES Le EAT aS 
*T[4] * T[3]°-l* T[4] * T[3]*T[4] * T[3]*-1 * T[4] eq A*i 
then i;end if; end for; 
3 
for iin [1..3] do 
if (T[3] “-1 * T[4] )*10 eq A*i then i; 
end if; end for; 
3 
for iin [1..3] do 
if T[4]* T[3] °-1«T[4]+*T[3 [4] * eee 
eI) aL LAY er Sy] T[4] *T[3]*T[4] 
RIES) ood eT AL ce nel ed: oe Aa” see Sl he 
DTA es ELS) ae PA EPA aD TS] SL “arta * 
T[3] *-1 * T[4] «* T[3]* T[4]«T[3]«T[4]* T[3]«T[4] 
*T[3] *-1 *T[4] * T[3] *T[4] * T[3] * T[4] *T[3] 7-1 
eq A*i then i; 
end if; end for; 
1 
From above, we can see cx b>! xcxbxcxbeceb bt xcxb! xcxbeceb | xcxb | xcx 


xcxbxcxbecxbeceb txcxb*xcxb*cxb7! is the only 


T[3]=b, and T[4]= 


bol xcxbeaxceb bxcxb! 
one that changed, where T[2]=a, 


We can check by using Magma. 


c *« b*-1 * c * b* cx b * 

Coe bo alee abodes cox 

be cc * B°=1 * coe bo=1 * cc * D°=1l*e-G * b * aA * Cc * 
b*-1l * c * bD°-1l * Cc * b* Cx bD* Cx D* C x DX-1 * 


crx bx*x*cer bx cr b*-l eg d; 
true 


Now, we collect our generators of q and NL[2] with relations to our presentation, then 


we can check our presentation in Magma. 


H<a,b,c,d>:= 
Group<d,a,b,c| 


ar? brs pCl 2-7 (bos ayy 2 5 

(awe ce) 2 7, b * CG * b*=-1 * Ge Db * Ge bol kG ea 
b *« c * b*-1l * c * b * Cc * D*-1 * Cc , (b°-1 * c)710 
Ce bo=-L co * De c* be ¢ ¥ BDo-L & Cw B*-1l * ¢ 
b*xe crx b°-1l * c * D°-1 * oc * bD*-1l* cx be axe 
bade Gece BOS aE es CS Bs ke VET ROB eer a DS = 
c*x* b* c * b * Cc * b*-1=d,d*3,d*°a=d*2,d*b=d,d*c=d 


i 

* 

* 

* 
“2p 


x b*-1l * cx 


#H; 

20520 

#G1; 

20520 
f1,H1,k1:=CosetAction (H, sub<H|Id(H) >); 
s:=IsIsomorphic(Gl,H1); 

S; 

true 


Therefore, G is a mixed extension of 3 by PSL(2,19) x 2. G2=3:° PSL(2,19) x 2. 
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Chapter 5 


Progenitors and Their 


Homomorphic Images 


5.1 Homomorphic Images of Progenitor 2*° : (2 x 4 : 2) 


S:=Sym(8) ; 

ww:=S!(2, 5) (3, 7); 
xx:=S!(1,2) (3, 6) (4, 5) (7, 8); 
yy:=S!(1, 3, 4, 7) (2, 6, 5, 8); 
zz:=S! (1, 4) (2, 5) (3, 7) (6, 8); 


N:=Sub<S | ww, XX, YY, ZZ>; 

G<w,X,Y,Z,t>:=Group<w, X,y,zZ,t|w°2,x°2,y° 4,z°2, (wxy°-1) 72, 
x*yY Lexy, 

VY -2*Z,WkX*WKX*Z,C°2, (t,w), (x*t) a, (y*xt) “b, (x*wet) *c, 
(wex*xy*xt) “d, (w*exxyx*t) “e, (z*xt) “f, (x*y°-let) “m; 
£,G1,k:=CosetAction (G, sub<G|w,x,y,Z>); 

k; 

IN:=sub<G1|f(w),f(x),f(y),£(2)>; 

CompositionFactors (Gl); 
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Table5,1: 2*° » (2.542) 


a|bjic/d/|ej|f|m Ge #G 
8/3 ]o0/o0] 7/0] 0 PEL (2,7) 172032 
9/3 ]0/0|/ 7/0] 0 9° Te 129024 
16) 332 (20s) Bee" Do Ae 1920 
10/3 /5/0]10/0] 0 Oo Ge 3840 
10/3 /8/o]s8]fojo 2? e (56: S6) 2073600 
713/710] 9/0] 0 PGL(2, 8) 504 
(aa es a a PSO, 722 336 
5/4 ]5/0] 9/0] 0 PGL(2, 19) 6840 
515 /5/5/0 /0] 6 PSL(2, 11) 660 
6 | PS Os 0 27: PSL(2,8) 64512 
3] 8 1)3/0/10/0)] 0 2x3: 56 4320 
715 [0/0] 4/0] 0 | 2x4: (PSL(3,4) : 2) | 322560 
10/3 /o/o] 5 ]o0/ 0 2° : Ss 7680 
ae AR eel em ea es 20 S6 1440 
9/10/9/6]9 10] 3 3: PGL(2, 19) 20520 
3/9 ]3/0]9 /0] 9 PSL(2, 19) 3420 
3/3 [0/0] 0/0] 0 27: $3 x 2 192 
5|6|]6/4/ 0/0] 0 2? : (Ss : Ss) 57600 
6 |10]/9/0] 6/0] 3 | (As: (As x As)) : De | 2592000 
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5.2 Homomorphic Images of Progenitor 2*!° : (2x4 : Cyx Cs) 


S:=Sym(16); 

xx:=S! (2, 8) (3, 7) (4, 14) (6, 10) ae 3) (11, 16); 

YRS ET OIG) OV B55. LOG; ac: TIAL BE) CSy 15y3 
zzi=S!(1, 3) (2, 9) (4, 12) (5, 7) (6, 13) (8, 16) (10, 11) (14, 15); 
wwo=-Si (ly “45. Sy Tad?) Gy V0, 843, 12) Fy 15) (9; 213, 12, Ley; 
Hasso (hy SA 2y Oy, 4, AA (6, 8) (op LD 2 TSC; 216):2 


N:=sSsub<S|xx, yy, zz,ww,hh>; 
G<x,y,Z,w,h,t>:=Group<x,y,z,w,h,t|x°2,y°2,z°2,w 4,h°2, (y*z) “2, 
(x*w°-1)°2, (y*w°-1)°2,z*w°-lx«zew, 

wo -2*h,x*y*xx*xyew -1,x*zZ*x*z*h,t°2, (t,x), 

(yxt) “a, 

(z*xwt) * 

(z*xxt)“c, 

(y*x«*t) “d, 

(y*x*zxt) “e, 


(y*x*zxt°x) “f, 

(h*xt) “m> 

#G; 
£,G1,k:=CosetAction (G, sub<G|x,y,Z,w,h>) ; 
#k; 
IN:=sub<Gl/f(x),f(y),f£(z),f£(w),f(h)>; 
CompositionFactors (Gl); 


Table 5.2: 2*16 : (2 x 4: Cy x C2) 


a|lb/|c|]djfe|f{m Ge #G 
9/0] 8/3  {|8l/0] 0 2e PGL(2,7) 672 
BBO: [obra 202] 0 27. As 960 

8 | 4) 5) 0 13/0) -0 2? 6 (PSL(3, 4) <2) 161280 
aS 4 |e 0") 010 3x2: (56: Ae) 1555200 
Sa 6s lOt 265 [F/O |-0 2¢S7 10080 
As) Oo] S36 [10/62/4040 54: (Dg x $3) 30000 
8 [8 3 [4/0] 0 8 : (PSL(3, 4) : 2) :2 645120 
310/4/8/9]0] 0 6 e (U4(3) : 2) 39191040 
6|3/6]4  /0/0] 0 UEC aa oO 11664 
6 |3]10] 4 ]0/0] 0 aed age ae pe oes 90000 
TOA) AS Os 6 0-0 2”: Ss 15360 
Sar 02) ae |S [200] 30 2: (PSL(3,4) :2)e2 161280 
7 | OO | 4S G50 (PSSA) 2)29 80640 
4/0/0/6{/3/0] 0 3: (Sg x 2) x 2 8640 
6 Ose.) Or OO 2e PGL(2, 13) 4368 
3/0/5/6{7/0] 0 Sy 5040 
3 10/0/10/4]0] 0 20 (S56 : 2) 2880 
31014 1]8 /6]0/ 0 | 22e(PGL(2,7): PSL(2,7)) | 225792 
3 |/7|4]0 16/0] 0 | 2e(PGL(2,7): PSL(2,7)) | 112896 
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5.3  Homomorphic Images of Progenitor 11*! :,, (5: 4) 


G<x, y,t>:=Group<x,y,t|x°5,y°4,y° 3*x* 3*y*x,t°11,t°x=t°5, 

(y* (t*6)) “m, (y* (t*7)) 7a, (y* (t78)) 7s, (y* (t°79)) *d, (y* (t710))°E£, 
(x*t) “g, (x*«t*y) 7h, (x*t*2) 74, (x*t* (y°2)) 7k, (x*2*t) 71, (x°2*t*y) 7a, 
(x7 2*t72) “w, (x7 2*t* (y72))7e>; 


Table bide Al tas (hed) 
mja/s|d|f/g|h|G=]| #G 


0;0})0)3;,6,0} 0} My, | 7920 


5.4 Homomorphic Images of Progenitor 5*° :,, Ss 


primitivegroup (5,5); 

xx:=G.1; 

yy:=G.2; 

G<x, y,t>:=Group<x,y,t|x°5,y°2, (x°-lx*y) “4, (x*y*x° -2*y*x) 72, 

t75, (t,y*xx°-ley) ,t* (x*y*x7-2)=t74, ((y*x*y) *t7 (x7 4*%x7-1) 72) 7a, 
(y*x°2xt) “b, (y*x7*2*t* (x7-1)) 7c, (y*x*2*t* (y*x72)) Od, (y*x72*t72) *£>; 
#G; 
£,G1,k:=CosetAction (G, sub<G|x,y>); 
#k; 
IN:=sub<G1|f(x),f(y) >; 
CompositionFactors (Gl); 


Table 5.42 57° +, Ss 

d/f Ge #G 
0|6 | HS x Ds | 443520000 
4|0 | 2eU3(5) 252000 
4|7 U3(5) 126000 


So} N| O|] © 
So} oO] | oO 
CS} CO] CO] Oo 
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5.5 Homomorphic Images of Progenitor 149*? :,, D37 


primitivegroup (37,2); 

xx:=G.1; 

yy:=G.2; 
G<x,y,t>:=Group<x,y,tly°2, (x°-1l*y) “2,x°-37,t°149,t* (x713)=t°*33, 
(y*t) “m>; 

£,G1,k:=CosetAction (G, sub<G|x,y>); 

#k; 

IN:=sub<G1|f(x),f(y) >; 

CompositionFactors (Gl); 


Table 5.5: 149*? :,, D37 
#k/m| Ge #G 
1 | 3 | L2(149) | 1653900 
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Chapter 6 


Transitive Groups on 9 Letters 


6.1 Transitive Group (9, 4) 


We will write a progenitor on a transitive group on 9 letters. We investigate 


the number of transitive groups that exist on 9 letters by the following Magma code: 


NumberOfTransitiveGroups (9); 
34 


Now, we will take the fourth group in the sequence. 


N:=TransitiveGroup (9,4); 

S:=Sym(9); 

xx:= S!(1, 2, 9) (3, 4, 5) (6, 7, 8); 

yy:=S!(1, 2) (4, 5) (7, 8); 

zz:=S!(1, 4, 7) (2, 5, 8) (3, 6, 9); 
N:=Sub<S|xxX, VY, ZZ>; 

#N; 

for c,v,b,n,m,a,s in [0..10] do 
G<x,y,Z,t>:=Group<x,y,Z,t|x°3,y°2,2°3, (x°-l1*y) “2, (%,Z), 
y*z -lxy*z,t°2, (t,x*y), (t,x*y*z°-1l), 

(yxt)*c, ((y * z°-1)x*t)*v, 

(z*t) “b, (x*t) 7n, 

((x * Z2°-1)*t)*m, ((x * z)*t)*a, ((y * z)*t)"s>; 
if #G gt 10 then c,v,b,n,m,a,s,#G; 

end if; 

end for; 


Table 6. 


1: Da : (S3 x Az) 


c|/v|b/}n]mfajs Ge #G 
0/0/4/61/616/ 10] 52:53;x2 | 300 
0/0/4/61/61]6/ 6 | 32:S3x2 | 108 
0/0) 4]9 [0/9] 7 | PGL(2,8) | 504 
0/0/10/10/10]01/ 5 Ss 120 
9]/0/10] 9 | 0 ]9] 0 | PSL(2,19) | 3420 
0/0/0]0]0]/8| 7 | PGL(2,7) | 336 
ofolo]s!ols8] 8 Ty x2 672 
0/0/2/61/01]6) 6 37 Dé 108 

6.2 Transitive Group (9, 8) 

N:=TransitiveGroup (9,8); 

S:=Sym(9); 

xx:=S! (1, 2, 9) (3, 4, 5)(6, 7, 8); 

yy:=S!(3, 6) (4, 7) (5, 8); 

zzZz:=S! (1, 2) (4, 5) (7, 8); 

wwiH=Gl(ly dy Ty; by BES} Ge Oy: 


N:=Sub<S|xxX, Vy, ZZ, WW>; 
#N; 


for c,v,b,n,m,a,s,d,f,g,h,j,o0 in [0..10] do 


G<x,V,Z,W,t>:=Group<x, VY, Z,W,1 


x7 -Lxy*xey, (X°-1*z) 72, (y*z) 72, 


(X,W) 1 (yxw°-1) “2g Zew -l*zxw,1 


t|x°3,y°2,z2°2,w'3, 


t*2, (t,y), (t,x * Z), 


“coc, ((z * wi-1)*t) “v, (y*! 
w°-1)*t)*n, ((y * z)*t) 


) 

* 

* 

* wo-1)*t)*d, (wet) *£, 
xX * w)*xt) 7g, ((z * w)*t)*h, 

* 

G 

1 


f; end for; 


Eby 
“th, 


Z * w -1)«t)“a, (x*t) 7s, 


y)*t)*j, ((x * y * w°-1)*t)*o>; 
gt 10 then c,v,b,n,m,a,s,d,f,g,h,j,0 ,#G; 
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c/v/b]|n}]mjiaJ]s{|d/|f]gih]j jo Ge #G 
0;0;0;/0/0;0/0]0/;0)0])4/4]6 9? (2% 3 56) 34560 
0;0;0)/0/0;0/0|0/;0)4]6;41|0 2’: (S3 x S3) 4608 
0;0;0)/0/0;0/0|0/;0)4]6/4]6 2° : ($3 x S3) 1152 
OO) 0) 0 1) OO. ]-0r) O00) Oe )0.) OS 37 : (S5 x As) 583200 
0;0;0;0/0/0/0)/0/;0;0|}5)4]5 OP: (96 K7As) 1382400 
Oe) OO) 901) Oe 0 0) 08 | Or 62)-6 lr 2° : (S3 x S4) 73728 
0;0;0;/0/0;0/0]0/;5;0})6/0}| 4 2x PGL(2,81) 1062720 
0o/o/olo]/olosolol5]5/8]/0] 8] 23: (PSLG,4) : 2) | 322560 
0/0) 0.) 0 )C: 0.) 0) 0) 0) 8/5 [5] 5 |.24 =: PSL; 4) +2) | 161280 
0;0;0;0/0/0/0)0);4;0|}5)4]5 ese 23040 
0;0;0;/0/0;0/0]0/;4/0]8/3]6 28 : S4 x D3 9216 


6.3 Transitive Group (9, 14) 


N:=TransitiveGroup (9,14); 
S:=Sym(9); 


xx:=S!(1, 2, 9) (3, 4, 5) (6, 7, 8); 
yy:=S!(1, 8, 2, 4) (3, 5, 6, 7); 
Z22=Si> (ley 6; 27 Syb4y Ty “8, 595 
hh:=S! (1, 4, 7) (2, 5, 8) (3, 6, 9); 


N:=sub<S|xx,yy,zz,hh>; 
#N; 
for c,v,b,n,m,a,s,d,f,g in [0..10] do 


G<x,y,z,h,t>:=Group<x,y,z,h,t|x°3,y°4,z°4,h°3, 
Z°-l * y°2 * z°-1,y°-1 *z°-1l * y * z°-l, 


he s4. ham ads kK ST Se oe ROS kere ke oe om Sy 
(x, Rj, ko =L & Yoel exOKd we ye R= 1, b22,- (te, ey); 


(x*t) °c, ((x * y°-1)*t)*v, 

((x * z°-1)*t)*b, ((x * h7-1)*t)7n, 
((y°-1l * x)*t)*m, ((z°-1 * x) «*t) 7a, 
((x * y)*t)*s, ((x * y * z2°-1)x*t)*d, 
(z*xt)*£,((z * x * y)«*«t)*g>; 


if #G gt 10 then c,v,b,n,m,a,s,d,f,9,#G; 


end if; 
end for; 


Table-63:-2"" (37729) 


c|/v|/bi/|n]|m/a|]s|{|d|]f]g Ge #G 
Oolololojo flo ;7{/o[5]5 U(4, 3) 3265920 
0;0/0;0]/0]/0/6/4/0/8 9? (5e 22) 5760 
0/0/0/0}0/0/0}0]4]4 (2°35 (22 29)) 2592 
Oololo;o]4]/0/4/6/6]/0 25509168 25509168 
| 0 020 fe 0) A810) 4] 256 BF (D2 822 9)) 7776 


6.4 Transitive Group (9, 17) 


for s,d,f,g,h,j,k,1,q,w in [0..10] do 
G<x, y,t>:=Group<x,y,t|x°3,y°3,x°-1l * y * x°-1l * y°-l * xx 
yoR xe yr slpt° 2; (bpy eK =D oe yo Hl)y 


(Cpy * KT=lo ey ew KR =1 & y), 

((x°-1, y)«t)“s, 

((x, y)*t)*d, 

((X * y * KX * y * x*-1 «x y)«t)°f, 
((y * x°-1l * y * xX * y * xX°-1)*t)7g, 
(y*t) “h, 

CLAY SA ae) a5 

((y°-1 * x) *t) 7k, 

(((y*-1 * x)72)*t) 71, 

(Uy ad. a ae Ey OG, 

(((y°-1 * x°-1)°2)*t) wo; 

if #G gt 10 then s,d,f,g,h,j,k,1,q,w, #G; 
end if; 

end for; 
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Table 6.4: 2*° : (33 : Az) 


h}jfkjl w =] #6 
0 0/0] 4 | 34:5, | 1944 
0/0/0/0]0] 5 | 3°: As | 14580 
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Chapter 7 


Monomial Progenitors 


7.1 Definitions 


Definition 7.1. We denote monomial progenitors as p*” im N. 


Definition 7.2. Monomial Matrix is A square matrix that has exactly one non-zero 


entry in each row and each column. [HK06] 


Definition 7.3. Monomial Representations /HK06/ Let G be a group. A monomial 
representation is a map A —+ GL(n: F), since G is homomorphism which provided 
that A(x) and A(y) are monomial matrices. Then, the monomial representation of G 


is given by this formula : 
| seer) o(tizty1) --- o(tietz1) 


roe eae!) ete) 7 eaten 


b(trat[ 1) G(tprty1) --- O(tnxtz1) 
Definition 7.4. Monomial Character A character ¢ of G is monomial if ¢ is induced 


by a linear character of a subgroup H (not necessarily proper) of G.[HK06] 


Definition 7.5. Induced Character 
Let H < Gand ¢ be a character of G. The formula for induced character is 


og = = wecann P(w)- 
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Where 
b¢ is the value of ¢@ at each element of the class Co. 
n=(G : H]. 


ha, is the number of elements in the class Cy of G.[HK06] 


7.2 The Monomial Progenitors 11*? :,, Ds 


We will construct a monomial presentation of 11*? :,, Ds. Let G be gener- 
ated by xx and yy where rx = (1,2,3,4,5) and yy = (1,4)(2,3). Also, Consider the 
subgroup H = {Id, (1,4, 2,5, 3), (1, 2, 3, 4,5), (1,5, 4,3, 2), (1,3,5,2,4)}. To achieve a 
monomial presentation we must induce a linear character from a subgroup H of G. We 
choose a subgroup with index matching the degree of an irreducible character of G. 
Note, G has characters X.1, X.2, X.3, and X.4. We proceed using x.3 and look for a 
subgroup of order 5. So that r= — 2 = 2 and [G: H] = 2. Since the index of the two 
groups is 2. If a matrix representation exists it will be represented by a 2 x 2 matrices. 


Conjugacy Classes Representative of The Group G are: 
C, = Id(G) 

C2 = (1, 4)(2, 3) 

Cx = (1,2;3;4;5) 

Cy = (15355,254) 


Conjugacy Classes Representative of The Group H are: 

D, = Id(#) 

Ds = (1,4,2,5,3 

Ds = (1, 2;.35455 

Di (1,5, 433,2 
= (1,3,5,2,4 


Cl SO RO RE 


Consider the irreducible characters of H and G given below: 


Table 7.1: Character Table of G 
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Class Ch C2 C3 C4 
Size 1 3) 2 2 
Representative | Id(G) | (1,4)(2,3) | (1,2,3,4,5) | (1,3,5,2,4) 
X.3 2 0 Z1=14 | Z14#2=7 
X.4 2 0 Z1i#2=7)|) Z1=14 


Before we move to next step, let us to explain how we can compute Z1, and 71#2 of 


the character table of G. We will depend on Magma to do that. 


Z1 :=(CyclotomicField(5: Sparse := 
[ RationalField() | 0, 0, 1, 1 ]; 

21; 

zeta(5)_573 + zeta(5) 

PrimitiveRoot (11); 


true)) ! 


23° 2 


2 
|G|/|H|=10/5; 
2 
2? 28 
so, zeta(5)=4 
Z1l=zeta(5)_5°3 + zeta(5)_5*°2=4*3 mod 11 +472 mod 11; 14 
Z1#2=((zeta(5)_5)72)73 +((zeta(5)_5)72)72 
=4°6 mod 11 + 4°4 mod 11; 7 
Table 7.2: Character Table of H 
Class Di Do Dz D4 Ds 
Size A A 1 1 1 
Representative | Id(H) | (1,4,2,5,3) | (1,2,3,4,5) | (1,5,4,3,2) | (1,3,5,2,4) 
X.2 1 Zi=4 | Z1#2=5 | Z1#3=9 | Z1#4=3 


We can compute Z1, 71#2, 71#3 and 71#4 of the character table of H by Magma 


program: 


Z1:=(CyclotomicField(5: 
oa 


Sparse := 
RationalField() | 0, 1, 0, 0 ]; 
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Zl; 
zeta(5)_5 

Z1l=zeta(5)_5=4 

Z1#2=(zeta(5)_5)°2= 4°2 mod 11; 5 
Z1#3=(zeta(5)_5)°3= 4°73 mod 11; 9 
Z1#4=(zeta(5)_5)°4= 4°4 mod 11; 3 


7.2.1 The Induction Process 


Now, we will induce the character X.2 of H up to X.3 of G to obtain the 


character of G by using the tables above and using our definition of induction as follows: 
Go. = i Aor o(w) 
© of = eS ee ne o(e) =2 


© OF = ps5 Lweownn $(9)=0 


$$ = pS Vwecenn (1: 2, 8,4, 5)(1, 5,4, 9, 2)) 


. 4 _ ad Lwecynk b((1, 8, 5,2,4)(1,4,2, 5, 3)) 
i o((1, 3, 5, 2,4) a o((1, 4, 2, 5,3) = fe 


Therefore, we have verified that pea); 0, 14, and 7. So, the character X.2 of H induces 
the character X.3 of G. 


7.2.2 Verifying the Monomial Representation 


We have a linear character of the subgroup H of index ninG. 
Thus, we will let G = Ht; VHtz = HeUH (1, 4)(2,3). Where, t; = e and tg = (1, 4)(2,3). 
We are now in a position to give the monomial representation of the progenitor 


1 De 
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We now investigate the monomial representation has the following generators: 


5 O 0 
A(ar)= and A(yy)= 
0 9 1 


A[xx]: Row 1 
e d(tiaty') = o((1, 2,3, 4,5))=5 
ed(taty') = g(e(1, 2,3,4, 5)((1, 4)(2,3))~")=0 


A|xx]: Row 2 
ed(tzxt\ ') = $((1, 4)(2,3)(1, 2, 3, 4, 5))=0 
ed(toxt5') _ o((4, 4) (2, 3)(1, 2, 3,4, 5)((1, 4) (2, 3))*)=9 


Alyy]: Row 1 
© o(tiyty ') = $((1,4)(2,3)) =0 
© o(tiyty!) = o(e(1, 4)(2,3)((1,4)(2,3))-)=1 


Alyy]: Row 2 
© (tots?) = 6((1,4)(2,3)(1,4)(2,3)) = 1 
od(tayty ') = ((1,4)(2,3)((1, 4)(2,3)))=0 


Therefore, we could verify the monomial representation has the following generators: 


5 0 0 
A(ar)= and A(yy)= 
0 9 a 


7.2.3 Construction a Permutation Representation: 


We worked in Z1; on matrices of degree 2 x 2 which implies we are producing 
a 11*? :;, Ds progenitor permutation representation. We want to represent x and y as 
permutation to do so we see that a;,; = n if the automorphism takes t; —> ty. 


1*2 


There are 11** is a free product of 2 cyclic groups of order 11. Thus, we will construct 


a table with 2 tis of order 11 labeled from 1.....20. 


A(ax) (where a1,=5, and ag2=9).Therefore, t; —> t?,and tg —> #8. 
A(yy) / (where aj2=1, and ag1=1).Therefore, t; —> tg,and tz —> ty. 
Table 7.3: Automorphism of A(xx) 

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 
fds. te tee, Wee te ee ee ee, 
me ae es a ae 2 a sa 2 A a 2 
9 18 19 14-7 10 17 6 5 2 15° 90-3 16 13° 19 7 
18 19 20 

a te 

io eis 

8 11 4 

Table 7.4: Automorphism of A(yy) 

I OS 23 6. 0. SB 8". 105 19 AS A aS Te eae 

ij. te 25% 1 i Chg. Ge VAR HR eee ct Gah ER BR Ee 

toe tin he he ii ae: aa ae a a a a ae a 

a” Aa 5 8 flO, - 19 a 1a A 1G i tS 

18 19 20 

oa ee 

a ae 

17 20 19 
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Therefore, consider the automorphism of xx and automorphism of yy as fol- 


lows: 


A(xx)=(1, 9, 5, 7, 17)(2, 18, 8, 6, 10)(3, 19, 11, 15, 13)(4, 14, 16, 12, 20). 


A(yy)=(1, 2)(3, 4)(5, 6)(7, 8)(9, 10)(11, 12)(13, 14)(15, 16)(17, 18)(19, 20). 


7.2.4 Creating a Representation of the Progenitor: 


Now, we need to find a presentation for our progenitor. 


We must choose at t to normalizer from our two choices(t1)*(t2) . 


Let t~t, and we must find permutations which normalize (t;) fix the following set 


Pict Pit it tiGl A inl es tislo dito stota tetas 


Therefore, we need to compute the set stabilizer of the set {t,, t?, t?, tf, t?, 8, t7, 8, t2, 4°} 


={1,3,5,7,9, 11, 13, 15,17, 19}. 


S:=Sym(20); 

xXxX:=G.1; 

yy:=G.2; 
xx:=S!(1,9,5,7,17) (2,18,8,6,10) (3,19,11,15,13) (4,14,16,12,20); 
yy=Slle: 2).(S pp AG yo 67. BY (Oe: LO) 2E, -12) (894) (25, 6) 


(17, 18) (19, 20); 

Nm:=sub<S|xx, yy>; 

FPGroup (N); 

Finitely presented group on 2 generators 
Relations 

$.2°2 = Id(S) 

(So 2 HP eS 822. SS DAC: 

$.1°-5 = Id($) 


Now, we will convert FPGroup(N) to our presentation. 

G <2,y >:= Group < 2, yly”, (2@-1*y)*,2-° >; 

Next, we will find the stabilizer of < t; >. 

Stabilizers (Nm, {1,3,5,7,9,11,13,15,17,19}); 


(Ly 9% Se Ty 17) 42, 18, 8, 6, 10) (3, 19, Lhy 15; 13) 
(4, 14, 16, 12, 20) 
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Thus, we discover the stabilizer of < t; > in Ds is generated by one element which we 
will label A. 

A=(1, 9, 5, 7, 17)(2, 18, 8, 6, 10)(3, 19, 11, 15, 13)(4, 14, 16, 12, 20). For a presentation 
we must convert this permutation into words which we find to be: 

(1, 9, 5, 7, 17)(2, 18, 8, 6, 10)(3, 19, 11, 15, 13)(4, 14, 16, 12, 20)=x. 

As a result, we find that A sends 1 to 9 or t; to t?. We will add this t? = ¢° to our 


presentation. Therefore, we obtain the monomial progenitor as follows: 


1 tg Daa e Tae a ee Oe at (et oe 


7.2.5 The Monomial Progenitors 59*? :,,, Doo 


We first establish a monomial presentation of 59*? :, Dag. 

G has order 58 and it is generated by xx and yy where xx=(1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 
11, 12, 13, 14, 15, 16, 17, 18, 19, 20, 21,22, 23, 24, 25, 26, 27, 28, 29) 

yy=(1, 28)(2, 27)(3, 26)(4, 25)(5, 24)(6, 23)(7, 22)(8, 21)(9, 20)(10, 19)(11,18)(12, 
17)(13, 16)(14, 15). 

We must induce a linear character from a subgroup H of G to create a monomial pre- 
sentation. To insure we get an irreducible character, we must choose a subgroup with 
index matching the degree of an irreducible character of G. The characters of G are 


x.1, v.2, x.3, v.4, x-5, v-6, x.7, x.8, V-9, x- 10, ..... andy.16. 


We have a subgroup H of order 29, where 
H = {1,28, 26, 24, 22, 20, 18, 16, 14, 12, 10, 8, 6, 4, 2, 29, 27, 25, 23, 21, 19, 17, 15, 13, 11,9, 
7,5,3}. So that a = 35 = 2 and [G : H] = 2. Since the index of the group is 2. If a 


matrix representation exists, it will be represented by a 2 x 2 matrices. 


Conjugacy Classes Representative of The Group G are: 

C, = Id(G) 

C2 = (1, 20)(2, 19)(3, 18)(4, 17)(5, 16)(6, 15)(7, 14)(8, 13) (9, 12) (10, 11) (21, 29) (22, 28) 
(23, 27) (24, 26) 

C3 = (1, 2,3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 19, 20, 21, 22, 23, 24, 25, 26, 27, 
28, 29) 
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Cz = (1,3,5,7,9, 11, 13, 15, 17, 19, 21, 23, 25, 27, 29, 2, 4, 6, 8, 10, 12, 14, 16, 18, 20, 22, 24, 
26, 28 
1,4, 7, 10, 13, 16, 19, 22, 25, 28, 2,5, 8, 11, 14, 17, 20, 23, 26, 29, 3, 6, 9, 12, 15, 18, 21, 
24, 27 
1,5, 9, 13, 17, 21, 25, 29, 4, 8, 12, 16, 20, 24, 28, 3, 7, 11, 15, 19, 23, 27, 2,6, 10, 14, 18, 
22, 26 
Cr = 
20, 25 


1,6, 11, 16, 21, 26, 2, 7, 12, 17, 22, 27, 3, 8, 13, 18, 23, 28, 4,9, 14, 19, 24, 29, 5, 10, 15, 


1,7, 13,19, 25, 2,8, 14, 20, 26, 3, 9, 15, 21, 27, 4, 10, 16, 22, 28, 5, 11, 17, 23, 29, 6, 12, 
18, 24 
1,8, 15, 22, 29, 7, 14, 21, 28, 6, 13, 20, 27, 5, 12, 19, 26, 4, 11, 18, 25, 3, 10, 17, 24, 2, 9, 
16, 23 
Cio = (1, 9,17, 25, 4, 12, 20, 28, 7, 15, 23, 2, 10, 18, 26, 5, 13, 21, 29, 8, 16, 24, 3, 11, 19, 27, 6, 
14, 22) 

C11 = (1,10, 19, 28, 8, 17, 26, 6, 15, 24, 4, 13, 22, 2, 11, 20, 29, 9, 18, 27, 7, 16, 25, 5, 14, 23, 3, 
12,21) 

C12 = (1,11, 21, 2, 12, 22, 3, 13, 23, 4, 14, 24, 5, 15, 25, 6, 16, 26, 7, 17, 27, 8, 18, 28, 9, 19, 29, 
10, 20) 

C13 = (1, 12, 23, 5, 16, 27, 9, 20, 2, 13, 24, 6, 17, 28, 10, 21, 3, 14, 25, 7, 18, 29, 11, 22, 4, 15, 26, 
8, 19) 

Cia = (1,13, 25, 8, 20, 3, 15, 27, 10, 22, 5, 17, 29, 12, 24, 7, 19, 2, 14, 26, 9, 21, 4, 16, 28, 11, 23, 
6, 18) 

Cis = (1,14, 27, 11, 24, 8, 21, 5, 18, 2, 15, 28, 12, 25, 9, 22, 6, 19, 3, 16, 29, 13, 26, 10, 23, 7, 20, 
4,17) 

Cig = (1,15, 29, 14, 28, 13, 27, 12, 26, 11, 25, 10, 24, 9, 23, 8, 22, 7, 21, 6, 20, 5, 19, 4, 18, 3,17, 
2, 16) 


( 
) 
=i 
) 
= (1, 
) 
( 
) 
= 
) 
= 
) 


Conjugacy Classes Representative of The Group H are: 

Dy = Id() 

De = (1, 28, 26, 24, 22, 20, 18, 16, 14, 12, 10, 8, 6, 4, 2, 29, 27, 25, 23, 21, 19, 17, 15, 13, 11,9, 
7, 5,3) 

Dg = (1, 26,22, 18, 14; 10, 6,2; 27, 23, 19,15, 11,.7,.3; 28, 24, 20, 16,.12,8;.4, 29; 25, 21,17, 


13, 9, 5) 

D4 = (1,24, 18, 12, 6, 29, 23, 17, 11, 5, 28, 22, 16, 10, 4, 27, 21, 15, 9, 3, 26, 20, 14, 8, 2, 25, 
19, 13, 7) 

Ds = (1,22, 14, 6, 27, 19, 11,3, 24, 16, 8, 29, 21, 13, 5, 26, 18, 10, 2, 23, 15, 7, 28, 20, 12, 4, 
25, 17,9) 


Dg = (1, 20, 10, 29, 19, 9, 28, 18, 8, 27, 17, 7, 26, 16, 6, 25, 15, 5, 24, 14, 4, 23, 13, 3, 22, 12, 
DOL) 

Dz = (1,18, 6, 23, 11, 28, 16, 4, 21, 9, 26, 14, 2, 19, 7, 24, 12, 29, 17, 5, 22, 10, 27, 15, 3, 20, 
8, 25, 13) 

Dg = (1, 16,2, 17,3, 18, 4, 19, 5, 20, 6, 21, 7, 22, 8, 23, 9, 24, 10, 25, 11, 26, 12, 27, 13, 28, 
14, 29, 15) 

Do = (1, 14,27, 11, 24, 8, 21, 5, 18, 2, 15, 28, 12, 25, 9, 22, 6, 19, 3, 16, 29, 13, 26, 10, 23, 7, 
20, 4, 17) 

Dio = (1, 12, 23, 5, 16, 27, 9, 20, 2, 13, 24, 6, 17, 28, 10, 21, 3, 14, 25, 7, 18, 29, 11, 22, 4, 15, 
26, 8, 19) 

Dy = (1,10, 19, 28, 8, 17, 26, 6, 15, 24, 4, 13, 22, 2, 11, 20, 29, 9, 18, 27, 7, 16, 25, 5, 14, 23, 
3.12.91) 

D2 = (1,8, 15, 22, 29, 7, 14, 21, 28, 6, 13, 20, 27, 5, 12, 19, 26, 4, 11, 18, 25, 3, 10, 17, 24, 2, 
9, 16, 23) 

D3 = (1,6, 11, 16, 21, 26, 2, 7, 12, 17, 22, 27, 3, 8, 13, 18, 23, 28, 4,9, 14, 19, 24, 29, 5, 10, 
15, 20, 25) 

Dyas = (1,4, 7, 10, 13, 16, 19, 22, 25, 28, 2,5, 8, 11, 14, 17, 20, 23, 26, 29, 3, 6, 9, 12, 15, 18, 
21, 24, 27) 

Dis = (1,2,3,4,5, 6, 7,8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 19, 20, 21, 22, 23, 24, 25, 26, 
27, 28, 29) 

Dyg = (1,29, 28, 27, 26, 25, 24, 23, 22, 21, 20, 19, 18, 17, 16, 15, 14, 13, 12, 11, 10, 9,8, 7, 6, 
5,4, 3, 2) 

Dyz = (1,27, 24, 21, 18, 15, 12, 9, 6, 3, 29, 26, 23, 20, 17, 14, 11, 8, 5, 2, 28, 25, 22, 19, 16, 
13, 10, 7, 4) 

Dig = (1,25, 20, 15, 10, 5, 29, 24, 19, 14, 9, 4, 28, 23, 18, 13, 8, 3, 27, 22, 17, 12, 7, 2, 26, 21, 
16, 11,6) 

Dy = (1,23, 16, 9, 2, 24, 17, 10, 3, 25, 18, 11, 4, 26, 19, 12, 5, 27, 20, 13, 6, 28, 21, 14, 7, 29, 
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22, 15, 8) 

Doo = (1,21, 12, 3, 23, 14, 5, 25, 16, 7, 27, 18, 9, 29, 20, 11, 2, 22, 13, 4, 24, 15, 6, 26, 17, 8, 
28, 19, 10) 

Do = (1,19,8, 26, 15, 4, 22, 11, 29, 18, 7, 25, 14, 3, 21, 10, 28, 17, 6, 24, 13, 2, 20, 9, 27, 16, 
5, 23, 12) 

Doz = (1,17, 4, 20, 7, 23, 10, 26, 13, 29, 16, 3, 19, 6, 22, 9, 25, 12, 28, 15, 2, 18, 5, 21,8, 24, 
11, 27, 14) 

Do3 = (1,15, 29, 14, 28, 13, 27, 12, 26, 11, 25, 10, 24, 9, 23, 8, 22, 7, 21, 6, 20, 5, 19, 4, 18, 3, 
17,2, 16) 

Dog = (1,13, 25, 8, 20, 3, 15, 27, 10, 22, 5, 17, 29, 12, 24, 7, 19, 2, 14, 26, 9, 21, 4, 16, 28, 11, 
23, 6, 18) 

Dos = (1,11, 21, 2, 12, 22, 3, 13, 23, 4, 14, 24, 5, 15, 25, 6, 16, 26, 7, 17, 27, 8, 18, 28, 9, 19, 
29, 10, 20) 

Dog = (1,9, 17, 25, 4, 12, 20, 28, 7, 15, 23, 2, 10, 18, 26, 5, 13, 21, 29, 8, 16, 24, 3, 11, 19, 27, 
6, 14, 22) 

Doz = (1,7, 13, 19, 25, 2,8, 14, 20, 26, 3, 9, 15, 21, 27, 4, 10, 16, 22, 28, 5, 11, 17, 23, 29, 6, 
12, 18, 24) 

Dog = (1,5, 9, 13, 17, 21, 25, 29, 4, 8, 12, 16, 20, 24, 28, 3, 7, 11, 15, 19, 23, 27, 2,6, 10, 14, 
18, 22, 26) 

Dog = (1,3, 5,7, 9, 11, 13, 15, 17, 19, 21, 23, 25, 27, 29, 2, 4, 6, 8, 10, 12, 14, 16, 18, 20, 22, 
24, 26, 28) 


7.2.6 The Induction Process 
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Now, we will induce the character y.2 of H up to y.5 of G to obtain the 


character of G by using the tables y.5 of G and y.2 of H using our definition of induction 


as follows: 


¢g= ie wecann O(w) 


oy = ha ye weCinH o(e) =2. 


OF = ty2a9 Lwecunn 9(0)=0. 
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OF = Ez Dwcognn (12,3, 4,5, 6, 7, 8, 9, 10, 11, 12, 18, 

14, 15, 16, 17, 18, 19, 

20, 21, 22, 23, 24, 25, 26, 27, 28, 29) + A(1, 29, 28, 27, 26, 25, 24, 23, 22, 21, 20, 19, 18, 17, 16, 
15, 14, 13, 12, 11,10, 9, 8, 7,6, 5, 4, 3, 2)=(Z1#14 + 71415)=29+57=86=Z1#7. 


§ = 52a Ducejnn $(1 3,5, 7,9, 11, 13, 15, 17, 19, 21, 23, 25, 27, 29, 2, 4, 6, 8, 
10, 12, 14, 16, 18, 20, 22, 24, 26, 28) +4(1, 28, 26, 24, 22, 20, 18, 16, 14, 12, 10, 8, 6, 4, 2, 29, 27, 
25, 23, 21, 19,17, 15, 13, 11,9, 7,5, 3))=(Z1#28+Z1)=15+4=19=Z1# 14. 


08 = gy Nwecgnn O(1,4; 7, 10, 13, 16, 19, 22, 25, 28, 2, 5, 8, 11, 14, 17, 20, 23, 26, 
29, 3,6, 9, 12, 15, 18, 21, 24,27) + A(1, 27, 24, 21, 18, 15, 12, 9, 6, 3, 29, 26, 23, 20, 17, 14, 
11,8, 5, 2, 28, 25, 22, 19, 16, 13, 10, 7, 4)=(Z1#13 + Z1#16)=22+51=73=Z 148. 


OF = a 25 Dweosna O(1, 29, 28,27, 26, 25, 24, 23, 22, 21, 20,19, 18,17, 16, 15, 14, 
13, 12,11, 10,9,8,7,6,5,4,3,2)=Z1. 


0¢ = pg Nuco,nn O(1, 6, 1, 16, 21, 26, 2, 7, 12, 17, 22, 27, 3, 8, 13, 18, 23, 28, 
4,9, 14, 1924, 29, 5, 10, 15, 20, 25) + (1, 25, 20, 15, 10, 5, 29, 24, 19, 14, 9, 4, 28, 23, 18, 13, 
8, 3, 27, 22, 17, 12, 7, 2, 26, 21, 16, 11,6) =Z71#124+-71#17=35+27=62=Z1#46. 


08 = 25 Nwecent O(1,7, 13, 19, 25, 2, 8, 14, 20, 26, 3, 9, 15, 21, 27, 4, 10, 16, 22, 
28,5, 11,17, 23, 29, 6, 12, 18, 24) + (1, 24, 18, 12, 6, 29, 23, 17, 11, 5, 28, 22, 16, 10, 4, 27, 
21,15, 9,3, 26, 20, 14, 8, 2, 25, 19, 13, 7)=Z1#26+71#3=1245=17=Z1# 13. 


$F = 525 Nueconn O(1, 8, 15, 22, 29, 7, 14, 21, 28, 6, 13, 20, 27, 5, 12, 19, 26, 4, 
11, 18, 25, 3, 10, 17, 24, 2, 9, 16, 23) + (1, 23, 16, 9, 2, 24, 17, 10, 3, 25, 18, 11, 4, 26, 19, 12, 


5, 27, 20, 13, 6, 28, 21, 14, 7, 29, 22, 15, 8)=Z14#114Z71#18=53+49=102=Z1#9. 


0% = ese Cuecyonn PCL, 9, 17, 25, 4, 12, 20, 28, 7, 15, 23, 2, 10, 18, 26, 5, 
13, 21, 29, 8, 16, 24, 3, 11, 19, 27, 6, 14, 22) + (1, 22, 14, 6, 27, 19, 11, 3, 24, 16, 8, 29, 
21, 13,5, 26, 18, 10, 2, 23, 15, 7, 28, 20, 12, 4, 25, 17, 9)=Z14#425+Z71#4=3420=23= 


Z1#2. 


09 = 2a Nec, nn PCL, 10, 19, 28, 8, 17, 26,6, 15, 24, 4, 13, 22, 2, 11, 20, 29, 9, 
18, 27, 7, 16, 25,5, 14, 23, 3, 12,21) + (1, 21, 12, 3, 23, 14, 5, 25, 16, 7, 27, 18, 9, 29, 20, 11, 
2, 22, 13, 4, 24, 15, 6, 26, 17, 8, 28, 19, 10)=Z14410+71419=28+19=47=Z 145. 


06 = ps Duecenn P(1s 11, 21, 2, 12, 22, 3, 13, 23, 4, 14, 24, 5, 15, 25, 6, 16, 26, 
7, 17, 27, 8, 18, 28, 9, 19, 29, 10, 20) + (1, 20, 10, 29, 19, 9, 28, 18, 8, 27, 17, 7, 26, 16, 6, 25, 
15, 5,24, 14, 4, 23, 13, 3, 22, 12, 2, 21, 11)=Z71424+7145=45+21=66=Z1#12. 


0% = =a Nwecyenn PCL, 12, 23, 5, 16, 27, 9, 20, 2, 13, 24, 6, 17, 28, 10, 21,3, 14, 
25,7, 18, 29, 11, 22, 4, 15, 26, 8, 19) + (1, 19, 8, 26, 15, 4, 22, 11, 29, 18, 7, 25, 14, 3, 21, 10, 
28, 17, 6, 24, 13, 2, 20, 9, 27, 16, 5, 23, 12)=Z1#9+Z1#20=74+17=24=Z1#10. 


$0 = rZsz Cwecynn PCL, 13, 25, 8, 20, 3, 15, 27, 10, 22, 5, 17, 29, 12, 24,7, 19, 2, 
14, 26, 9,21, 4, 16, 28, 11, 23,6, 18) + 4(1, 18, 6, 23, 11, 28, 16, 4, 21, 9, 26, 14, 2, 19, 7, 24, 
12, 29, 17,5, 22, 10, 27, 15, 3, 20, 8, 25, 13)=71#23+ Z71#6=26425=51=Z143. 


06 = pee Nowe crene PL 14, 27, 11, 24, 8, 21,5, 18, 2, 15, 28, 12, 25, 9, 22, 6, 19, 
3, 16, 29, 13, 26, 10, 23, 7, 20, 4, 17) + (1, 17, 4, 20, 7, 23, 10, 26, 13, 29, 16, 3, 19, 6, 22, 9, 
25, 12, 28, 15, 2, 18,5, 21, 8, 24, 11, 27, 14)=Z1#8+71#21=4649=55=Z1#4. 


$5 = Fess Due cygnn PCL 15, 29, 14, 28, 13, 27, 12, 26, 11, 25, 10, 24, 9, 23, 8, 22,7, 
21,6, 20,5, 19, 4, 18, 3,17, 2, 16) + G(1, 16, 2,17, 3, 18, 4, 19, 5, 20, 6, 21, 7, 22, 8, 23,9, 
24, 10, 25, 11, 26, 12, 27, 13, 28, 14, 29, 15)=Z71422+Z71#7=36+41=77=Z1#11. 
Therefore, we have verified that oa? 0, Z1#7, Z1#14, 71#8,71, 71#6, 
Z1#13, Z1#9, Z1#2, Z145, Z1412, Z1410, 7143, 71444, and 71411. 

So, x-2 of H induces x.5 of G. 
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Table 7.5: X.2 of H 


Class | Size | Order gu 

D.1 1 1 1 

D.2 1 29 Z1=4 
D.3 1 29 Z1#2 = 16 
D.4 1 29 Zlges = 5 
D.5 1 29 Z1#4 = 20 
D.6 1 29 Z1#5 = 21 
Dee hed 29 | Z1#6 = 25 
Ds | 1 99 | Z1#7=41 
D.9 1 29 Z1#8 = 46 
D.10 | 1 29 Z1#9=7 
D.11 1 29 Z1#10 = 28 
D.12 1 29 ZI1#11 = 53 
D.13 1 29 Z1#12 = 35 
D.14 1 29 Z1#13 = 22 
D.15 1 29 Z1#14 = 29 
D.16 1 29 ZAANS = 57 
D.17 1 29 Z1#16 = 51 
D.18 1 29 ZI#17T = 27 
D.19 1 29 Z1#18 = 49 
D.20 1 29 Z1#19 = 19 
D.21 1 29 Z14#20 = 17 
D.22 1 29 Z1#21 =9 
D.23 1 29 Z14#22 = 36 
D.24 1 29 Z1423 = 26 
D.25 1 29 21424 = 45 
D.26 1 29 Z1#25 = 3 
D.27 1 29 21426 = 12 
D.28 1 29 Z1427 = 48 
D.29 1 29 21428 = 15 


7.2.7 Verifying the Monomial Representation 


We have a linear character of the subgroup H of index ninG. 
Thus, we will let G = Ht, U Ht2, Where, t; = e and tg = (1, 28)(2, 27) (3, 26)(4, 25) 
(5, 24) (6, 23)(7, 22) (8, 21)(9, 20) (10, 19)(11, 18) (12, 17) (13, 16)(14, 15). We are now in a 


position to give the monomial representation of the progenitor 59*? :, Dag. 


Table 7.5: X.5 of G 


Class | Size | Order oF 

C.1 1 1 2 

C.2 29 2 0 

C.3 2 29 Z1#7 = 86 
C.4 2 29 Z1#14 = 19 
C.5 2 29 LAPS = 73 
C.6 2 29 ZL = 57 
C.7 2 29 Z1#6 = 62 
C.8 2 29 Z14#13 = 17 
C.9 2 29 Z1#9 = 102 
C.10 2 29 Z1#2 = 23 
C.11 2 29 Z1#5 = 47 
C.12 2 29 Z14#12 = 66 
C.13 2 29 Z1#10 = 24 
C.14 2 29 71#3 = 51 
C.15 2 29 Z1#4 = 55 
C.16 2 29 Z14#11 =77 
Hosa | *) (tatz") 


G(toaty') (teaty*) 


We now investigate the monomial representation has the following generators: 


29 0 0 
A(xr)= and A(yy)= 
O 57 1 
A[xx]: Row 1 
ed(tiaty!) = o((1, 2,3, 4,5, 6, 7,8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 19, 20, 21, 22, 
23, 24, 25, 26, 27, 28, 29))=29. 


e d(tyaty!) = o((1,27)(2, 26)(3, 25) (4, 24) (5, 23) (6, 22)(7, 21)(8, 20) 
(9, 19)(10, 18)(11, 17)(12, 16) (13, 15)(28, 29))=0. 


A[xx]: Row 2 
0d(torty!) = ((1, 29)(2, 28)(3, 27) (4, 26) (5, 25) (6, 24)(7, 23)(8, 22)(9, 21)(10, 20) 
(11, 19)(12, 18)(13, 17) (14, 16))=0. 
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ed(toaty) = o((1, 28)(2, 27)(3, 26)(4, 25)(5, 24) (6, 23)(7, 22)(8, 21)(9, 20) (10, 19)(11, 18) 
(12, 17)(13, 16)(14, 15) (1, 2,3, 4,5, 6, 7,8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 19, 20, 21, 22, 
23, 24, 25, 26, 27, 28, 29)((1, 28) (2, 27)(3, 26)(4, 25)(5, 24) (6, 23)(7, 22)(8, 21)(9, 20) (10, 19) 
(11, 18) (12, 17)(13, 16) (14, 15))~!)=57. 


29 0 
=A) = 

0 57 
Alyy]: Row 1 


o6(tiyty +) = 6((1, 28) (2, 27) (3, 26) (4, 25) (5, 24) (6, 23)(7, 22)(8, 21)(9, 20)(10, 19) 
(11, 18)(12, 17)(13, 16)(14, 15))=0. 
© d(tiyty') = o(e)=1. 


Alyy]: Row 2 
© o(teyty') = o(e) =1. 
© o(toyty!) = o((1, 28)(2, 27)(3, 26)(4, 25) (5, 24) (6, 23) (7, 22)(8, 21)(9, 20) 
(10, 19)(11, 18)(12 

(13, 16)(14, 15))=0. 


01 
=> A(yy)= 


17) 


7.2.8 Construction a Permutation Representation: 


We worked in Zs5g on matrices of degree 2 x 2 which implies we are producing 
a 59%? :, Dag progenitor permutation representation. We want to represent x and y as 
permutation to do so we see that aj,; = n if the automorphism takes t; => t/. There 
are 59*? is a free product of 2 cyclic groups of order 59. Thus, we will construct a table 


with 2 t/s of order 59 labeled from 1.....116. 


29 0 
0 57 


A(rx)= 


(Where a11=29, and a22=57). Therefore, t; —> t?9,and tz —> tet 


Table 7.7: Automorphism of A(xx) 
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Ve 2 Ae OB Os TT. 1 Be a 
bi tar ea Ee a ae a ge at 
a ae aaa am ae aaa SC A a 
57 114 115 110 55 106 113 102 53 98 111 94 51 90 
15 bee 17 18 19. 2024: 22) 88 OA 95.96: OF 188 129 
te ete ae dae, ee oe ae Ee 
Ee te ta hig Te EB A ERE AERP ae PE ES cle ae 
109 86 49 82 107 78 47 74 105 70 45 66 103 62 43 
30. 31 32 33 34 35 36 37 38 39 40 41 42 43 44 
TU ge a td a ee ee bee ee ae 
tee a te ie ee. GE tO ee heed ioe Be wee aa aoe 
58 101 54 41 50 99 46 39 42 97 38 37 34 95 30 
45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 
i $23 ie iss fa i i a #27 ie i i ie ie ie 
ty Ae ee BE aie. aes ge ae Ea 
35 26 93 22 33 18 91 14 31 10 89 6 29 2 87 
60 61 62 63 64 65 66 67 68 69 70 71 72 = 73 
fe Ee ie Ge te he, ae a See 
a a a a en a 
116 27 112 85 108 25 104 83 100 23 96 81 92 21 
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74 75 76 77 78 79 80 81 82 83 84 8 86 87 88 89 
ae te ee Ge ie a es Ge ie he ie a Ge 
ig dhe ER ee we Se. es Se ee ee a cee 
88 79 84 19 80 77 76 17 72 75 68 15 64 73 60 13 
90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 
i te die. Gr ae dae Iota? ge ake ee ae ee ee 
a iS ae Sc i No 
56 71 52 11 48 69 44 9 40 67 36 7 32 65 28 
105 106 107 108 109 110 111 112 113 114 115 116 
> Ee SR ee GP ee eit ee tee 
Geo bye EE ay ie ee EE. a fe, gS PE te 
Be OE 6S 20> “B= TG. 16. 19> Sy 8 Se - a 


A(xx)=(1,57,29,43,95,69,23,105,5,55,89,13,51,91,71,81,17,49,33,41,37,39,97, 
9,53,31,101,7,113) (2,114,8,102,32,54,10,98,40,38,42,34,50,18,82,72,92,52,14,90,56,6, 
106,24,70,96 ,44,30,58) (3,115,59,87,73,21,47,93,11,111,61,27,103,65,25,45,35,99,67,83, 
75,79,77,19,107,63,85,15,109) (4,110,16,86,64,108,20,78,80,76,84,68,100,36,46,26,66,104, 
28,62,112,12,94,48,22,74,88,60,116). 


A(yy)= 
1 


(Where aj2=1, and a2i=1). Therefore, t; —> tg,and tg —> t1. 


Table 7.8: 


Automorphism of A(yy) 


1 DB A BG BY SO ONT Be A 6 A? 
i eet Oe ee a 
ie ae aes es ee eS ee a ee ee | 
2 BOB. CBS FAI Oo 12 Tl Ta 16 1s, 18 
Tee 19" OO" OE: 2) Oe Oa. SOB: Db 27-98-9292 BOC. ST. 182 
EL ee pe) Se ae a. ae eee ee 
te oe be a ae be ae Ee ee a ae 
TP 20>. 19" 22." Diy “D4. 23-26 25: 28. OT BO 29", 82> BI 
33. 34 35 «36 «37 «38 «439 «40 41 #42 +43 #44 +45 46 «47 
Bo yt ig A Eat be tg ea a eS ee ae 
i i de thy sg ag. tig ee ee ee 
34 33° «36 «35 (388887: 40 39 42 41 44 438 4645 48 
48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 
a te a ae a as ee a ae eae 
tt do he eo ae Ae ee tee Big Aig iy ee ee ae 
47 50 49 52 51 54 53 56 55 58 57 60 59 62 61 
63 64 65 66 67 68 69 70 71 72 73 #74 #7 76 77 
GP tere Gee ee a. eee ee ae a” dee Ge eee, aa 
a a a er a 
64 63 66 65 68 67 70 69 72 71 74 73 76 75 78 
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78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 98 


i te 


39 40 40 41 41 42 42 43, 43 44 da 45 45 46 46 AT 
at ty uy ty uy ty a ty at ty a ty uy ty uy ty 


77 80 79 82 81 84 83 86 85 88 87 90 89 92 91 94 


94 95 96 97 98 99 100 101 102 103 104 105 106 107 
Se te ie i a ete a ig ee ee tee gee 


47 448 448 449 449 450 450 51 p51 52452 5B SSA 
sr? ens > 2 > GO > 2 > rs > rs A 


93 96 95 98 97 100 99 102 101 104 103 106 105 = 108 


108 109 110 111 #4112 #113 «#114 «+2115~«2116 


ot i i ie ioe i $3" ee ie 


5455 455 5G 45647) ST) 458458 
Hy ty ty QD 


107 110 109 #112 #111 114 #+118 «#+«116 «#115 


A(yy)=(1, 2)(3, 4)(5, 6)(7, 8)(9, 10)(11, 12)(13, 14)(15, 16)(17, 18)(19, 20) 
21,22) (23, 24)(25, 26)(27, 28)(29, 30)(31, 32)(33, 34)(35, 36)(37, 38)(39,40) 
41, 42)(43, 44)(45, 46)(47, 48)(49, 50)(51, 52)(53, 54)(55, 56) (57,58) 

59, 60)(61, 62)(63, 64)(65, 66)(67, 68)(69, 70)(71, 72)(73, 74)(75, 76)(77, 78) 
79, 80)(81, 82)(83, 84)(85, 86)(87, 88)(89, 90)(91, 92)(93, 94)(95, 96) 

97, 98)(99, 100)(101, 102)(103, 104)(105, 106)(107, 108)(109, 110)(111, 112) 
113, 114)(115, 116). 


a i a a 


Now, we can create permutations by using our labels for each automorphism. 

We will Consider tl by element 1 from the table. 

This produces the permutation (1,57,29,43,95,69,23,105,5,55,89,13,51,91,71,81, 
17,49,33,41,37,39,97,9,53,31,101,7,113) if we follow each element and its corresponding 
automorphism number labeling. We can construct our automorphism by repeating the 
process for x, and y we produce the following permutations: 


A(xx)=(1,57,29,43,95,69,23,105,5,55,89,13,51,91,71,81,17,49,33,41,37,39,97, 
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9,53,31,101,7,113) (2,114,8,102,32,54,10,98,40,38,42,34,50,18,82,72,92,52,14,90,56,6, 
106,24,70,96 ,44,30,58) (3,115,59,87,73,21,47,93,11,111,61,27,103,65,25,45,35,99,67,83, 
75,79,77,19,107,63,85,15,109) (4,110,16,86,64,108,20,78,80,76,84,68,100,36,46,26,66,104, 
28,62,112,12,94,48,22,74,88,60,116). 

A(yy)=(1, 2)(3, 4)(5, 6)(7, 8)(9, 10)(11, 12)(13, 14)(15, 16)(17, 18)(19, 20) 
21,22)(23, 24)(25, 26)(27, 28)(29, 30)(31, 32)(33, 34)(35, 36)(37, 38)(39,40) 

41, 42)(43, 44)(45, 46)(47, 48)(49, 50)(51, 52)(53, 54)(55, 56)(57,58) 

59, 60)(61, 62)(63, 64)(65, 66)(67, 68)(69, 70)(71, 72)(73, 74)(75, 76)(77, 78) 

79, 80)(81, 82)(83, 84)(85, 86)(87, 88)(89, 90)(91, 92)(93, 94)(95, 96) 

97, 98)(99, 100)(101, 102)(103, 104)(105, 106)(107, 108)(109, 110)(111, 112) 

113, 114)(115, 116). 


a i a 


So, we have completed the process of construction a permutation representation from 


our matrices. 


7.2.9 Creating a Representation of the Progenitor: 


Now, we need to find a presentation for our progenitor. We must choose at t 
to normalizer from our two choices(t)*(t2) . Let t~t; and we must find permutations 
which normalize (t1) fix the following set 
Aid ee Ltd tt ae ely techy etogls davto sts best at boats 
Ey ty ae ee 
Therefore, we need to compute the set stabilizer of the set 
ict bt tak ht at ly eee Oe 
nl:=Stabiliser(Nm,{ 1, 3, 5, 7, 9, 11, 13, 15, 17, 19, 21, 

237 Zo; 21g Zap sly 3357. 30731 pp, SIP 2h, 437. 435.7 -407. 43; 
Sly 53; Sd, 5:7, 59) Ol, 63, 69,07, 69, Tl; 73% Toy ATy 


TI OLp 834. Sy Bly SIF Gly. 937 Yop BT, 99% LOL, 103% 
105, 107, 109, 111, 113, 115 }); 


Generators(nl); 

(1,955 -9,./ dl LL. Sip 3S. 213; 437% 205; 137, 8h, 41, 
97 hp (29752378972 Slip S37 Oly -LOLP, Shy 697. 55, S1y 
49, 39, 31) (2, 32, 40, 50, 92,56, 70, 58, 102, 98, 
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34, 72, 90, 24,30, 8, 10, 42, 82, 14, 106, 44,114, 54, 
38, 18, 52, 6, 96) (3, 73, 11, 103, 35, 75,107, 109, 87, 
O35 27 AG BS 195. 15,59; AT Cl Boye OT, TT, 85115; 
21, 111, 65,99, 79, 63) (4, 64, 80, 100, 66, 112, 22, 
116, 86, 78, 68, 26, 62, 48, 60, 16, 20,84, 46, 28, 94, 
88, 110, 108, 76, 36, 104, 12, 74) 


FPGroup (N); 

Finitely presented group on 2 generators 
Relations 

$.2°2 = Id($) 

($.1°-1 * $,2)*2 = Id(S) 

$.1°-29 = Id(S$) 


So we will convert FPGroup(N) to our presentation where .2=y and .1=x . Also, we 


discover the Stabilizer of < ty > in Dag is generated by one element which we will label A. 


A=(1, 95, 5, 51, 17, 37, 53, 118, 43, 105, 13, 81, 41, 9, 7, 29, 23, 89, 71, 33, 

97, 101, 57, 69, 55, 91, 49, 39, 31)(2, 32, 40, 50, 92, 56, 70, 58, 102, 98, 34, 

72, 90, 24, 30, 8, 10, 42, 82, 14, 106, 44, 114, 54, 38, 18, 52, 6, 96) 

(3, 73, 11, 103, 35, 75, 107, 109, 87, 93, 27, 45, 83, 19, 15, 59, 47, 61, 25, 67, 

77, 85, 115, 21, 111, 65, 99, 79, 63)(4, 64, 80, 100, 66, 112, 22, 116, 86, 

78, 68, 26, 62, 48, 60, 16, 20, 84, 46, 28, 94, 88, 110, 108, 76, 36, 104, 12, 74). 

For a presentation we must convert these permutations into words which we find to be: 
g=(1¢95;-5, 515, 1737.53, 113,43, 105,13, 81, Al 9.7.99, 93: 89; 7413.33; 

97, 101, 57, 69, 55, 91, 49, 39, 31)(2, 32, 40, 50, 92, 56, 70, 58, 102, 98, 34, 72, 90, 24, 
30, 8, 10, 42, 82, 14, 106, 44, 114, 54, 38, 18, 52, 6, 96) 

(3, 73, 11, 103, 35, 75, 107, 109, 87, 93, 27, 45, 83, 19, 15, 59, 47, 61, 25, 67, 77, 85, 
115, 21, 111, 65, 99, 79, 63)(4, 64, 80, 100, 66, 112, 22, 116, 86, 78, 68, 26, 62, 48, 60, 
16, 20, 84, 46, 28, 94, 88, 110, 108, 76, 36, 104, 12, 74). 

As a result, we find that A sends 1 to 95 or ft; to t7°. We will add this i = t8 to our 


presentation. Therefore, we obtain the monomial progenitor as follows: 


507 Gn Dis Soy tly a Ry) oe Se 
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Chapter 8 


Double Coset Enumeration 


8.1 Definition for Double Coset Enumeration 


Definition 8.1. Let G be a group and H and K be subgroups of G. A double coset 
of H and K of the form Hgk = {Hgk|k € K} is determined by g € G./[Rot95] 


Definition 8.2. Let G be a group and S CG. Fort € G, aright coset of S in G is 
the subset of G such that St = {st: s © G}. We sayt is a representative of the coset 
St. [Rot95/ 


Definition 8.3. Let G be a group. The index of H < G, denoted [G : H], is the 
number of right cosets of H in G. [Rot95]/ 


Definition 8.4. Let N be a group. The point stabilizer of w in N is given by: 
NY = {n€ N|w”" = w}, where w is a word in the t;’s. [Rot95] 
Definition 8.5. Let N be a group. The coset stabiliser of Nw in N is given by: 
N®™) = {n € N|Nw”" = Nw}, where w is a word of the t;’s. [Rot95] 


Theorem 8.6. The Number of single cosets in NwwN The above definition gives, 
NY ={ne N|Nwn= Nw} ={n€ N|(Nw)” = Nw} =NOAN”. The number of single 
cosets in NwN is given by [N : N“™)]. [Rot95] 


Definition 8.7. Let G be a group and X be a G-set. For x € X, the set x& = {x9|g € 
G} is a G-Orbit. /Rot95/ 
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Definition 8.8. Let G be a group and X be a G-set. X is transitive if for all x,y © X 
there exists ag € G such that y = gx. [Rot95] 


Definition 8.9. Let a € G, where G is a group. The conjugacy class of a is given by 
a® = {a9|g € G} = {g7laglg € G}. [Rot95] 


8.2 Double Coset Enumeration of 2 : $3 x Cz over (2 x 4 : 2) 


Consider the group G= Peer ~ (24: 93 x C2) where N=(2 x 4: 2). 
A symmetric presentation of G is G = Group < w,2,y, 2, t\w?, x7, y+, 27, (w*y!)?, 2% 
y learyy 2*zZ,werrkwee z,t?, (tw), (ext), (wereyrt>. 

Where w ~ (2,5)(3,7), x ~ (1, 2)(3, 6)(4, 5)(7, 8), y ~ (1,3, 4, 7)(2, 6, 5, 8) 
and z ~ (1, 4)(2,5)(3, 7)(6, 8) 
First, we are going to expand our relations. 


The first relation is 


(x xt =e 
(2 *t,)> =e since t~ ty 
v3 *t? «1? *t) =e 
x? «tf xtg*ti =e 


xv «ty *to = ty 


So, we have titg ~ 1. 


The second relation is 


(wxrxyxt) =e 
(w «ary xt)? =e 


2 
(w ee y)3 a ey) se pry 


«tj =e 
(weaxy)>*ty*xtgxti =e 


(we vey)? # ty ete = ty 


So, we have tytg ~ t. 
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Moreover, if we conjugate the previous relations by all elements in 
N={e, (2, 5)(3, 7), (1, 7)(2, 6)(3, 4) (5, 8), (1, 6, 4, 8) (2, 3, 5, 7), 
(1, 7, 4, 3)(2, 8, 5, 6), (1, 5)(2, 4)(3, 8) (6, 7), 
(1, 8, 4, 6)(2, 3, 5, 7), (1, 5, 4, 2) (3, 6, 7, 8), (1, 2, 4, 5)(3, 8, 7,6), 
(1,6, 4, 8)(2, 7,5, 3), (1, 4)(2, 5)(3, 7)(6, 8), (1,3, 4, 7)(2, 6, 5, 8), 
(1,8, 4, 6)(2, 7,5, 3), (1, 2)(3, 6)(4, 5)(7, 8), (1, 3)(2, 8)(4, 7) (5, 6), (1, 4)(6, 8)}. 


So, we get theses relations by conjugate the first relation by all elements of N 


122% 1,152 1, 767, 6326, 7327, 5425, 8328, 515, 22 67 LG, 45 V4, 
36 24287 28 O10 38 4 do ey 


Also, we will get theses relations by conjugate the second relation by all elements of N 


46 = 1, 3227, 84 = 6, 27 = 5, 61 = 8, 538 = 2, 18 = 4, 75 = 3. 


We have to find the total number of cosets of N in G. This is the index of N in G. The 


G| 192 
index will be the order of G divided by the order of N. oe single cosets and 


we have 4 Double cosets. 


#DoubleCosets (G, sub<G|x, y>, Sub<G|w, x, y,Z>); 
4 


Double Cosets 

Double Coset [*] : We start with the double coset NeN, where e is the word of 
length zero denote by [*]. We have NeN = {n € N|Nen}={Ne}={N}. So, the dou- 
ble coset NeN consist of single coset N. Thus, the number of right cosets in [*] is 
equal to cae Since N is transitive on {1,2,3,4,5,6,7,8} and the orbit of N on 
{1, 2,3, 4,5,6,7,8} is {1,2,3,4,5,6,7,8}. Now, we will determine the double coset to 
which Nt; belongs, where i € {1,2,3,4,5,6, 7,8}. We consider i=1, so Nt; is a repre- 


sentative coset, and hence we have a new double coset Nt;N which is denote by [1]. 


Double Coset [1] : We consider the double coset NwN, where w is a word of length 
one. NtiN = {n€ N|Ntin}={Nti, Nto, Nt3, Nta, Nts, Nte, Ntz, Nts}. 

We consider the coset stabilizer N“), note that the coset stabilizer of Nt is equal to 
the point stabilizer N1. N@ = {n € N|Nt? = ti} > < (2,5)(3, re 


N 
Since |N()|=2 then the number of single cosets in [1] is Hay = 
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Now, the orbits of N@ on {1,2,3,4,5,6,7,8} are {1},{4},{6},{8},{2, 5}, and {3,7}. 
We choose a representative from each orbit. 

If we select t; from the orbit {1}, t4 from the orbit {4}, tg from the orbit {6}, tg from the 
orbit {8}, t2 from the orbit {2,5}, and t7 from the orbit {3,7}, we notice the following: 
e Ntiti=NtV?=N € [*] 

This will collapse and hence it goes back to the double coset|*] since t?=e. 

e Ntytg=Ntyt4 € [14] 

This is a new double coset, which will extend the Cayley diagram from [1] to [14]. Since 
there is one element in this orbit, there is one t; that extend [1] to [14]. 

e Ntite=Nt4 € [1] 

By the second relation (w * x * y)® * t4 * tg = ty if we add tg to both sides, we will get 
that 


(wxaxy)> * tq * te * te = ty * te 
(weary) *tsxe = ty * te 
(wxa*y)? *ty = ty * te. 


So, tite ~ ti € [1]. 


Since there is one element in the orbit {6}, so one element will loop back into the double 
coset [1]. 

e Ntitg=Nt4 € [1] 

Because if we conjugate the second relation t4 * tg = ti by (1,4)(2,5)(3,7)(6,8)e N, we 
will get on ty * tg = ty. 

Since there is one element in the orbit {8}, so one element will loop back into the double 
coset [1]. 

e Ntito=Nt € [1] 

By the first relation tyt2=2°t,. Since there are two elements in the orbit {2,5}, so two 
elements will loop back into the double coset [1]. 

e Ntyt7=Ntyty € [17] 

This is a new double coset, which will extend the Cayley diagram from [1] to [17]. Since 
there is two elements in this orbit {3,7}, there are two t;s that extend [1] to [17]. 
Thus, t; takes [1] to [*] and to, tg, tg, ts take [1] to itself. 
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Double Coset [14] : We are a new double coset [14]. NtitaN = {n € N|N(tita)n}. 
Now, we will determine the coset stabilizer N““), so the coset stabilizer of Ntyta is 
given by: N(4) = {n € N|N(tita)” = Ntyt4} > < (2,5)(3,7), (1,3, 4, 7)(2,6,5,3) >. 

If we conjugate t,t, by all elements of N, we notice that we have these single cosets are 
equal to each other 14 ~ 73 ~ 68 ~ 52 ~ 86 ~ 25 ~ 41 ~ 37. The number of single 
cosets in the double coset [14] is Wa T67) a single coset in [14]. 

We can see that the orbits of N“) on {1, 2,3, 4,5, 6, 7, 8} is {1, 2,3, 4,5,6,7,8}. We now 
take the representative 4 of the orbit {1,2,3,4,5,6,7,8} and determine that Ntyt4t, = 


Nt; € [1]. As a result, all of eight t; take [14] to 1. 


Double Coset [17] : We are a new double coset [17]. Ntit7N = {n € N|N(titz)n}. 
Now, we will determine the coset stabilizer N (7) so the coset stabilizer of Ntyt7 is 
given by: NO?) = {n € N|N(tit7)” = Ntt7} > < (1,4)(2,5)(3,7)(6,8) >. 

When we conjugate t;t7 by all elements of N, It gives us a list of 8 single cosets, they 
have equal names 17 ~ 43 ~ 26 ~ 34 ~ 58 ~ 62 ~ 71 ~ 85. The number of single 
cosets in the double coset [17] is A =3=2 a single coset in [17]. Next, we can see 
that the orbits of N“”) on {1,2,3,4,5,6,7,8} is {1,2,3,4,5,6,7,8}. We now take the 
representative 7 of the orbit {1,2,3,4,5,6,7,8} and determine that Ntit7t7 = Nt, € 


[1]. As a result, all of eight t; take [17] to 1. 


Finally, we can construct the Cayley diagram. Since the set of right cosets are closed 
under right multiplication by ¢; where i=1,2,3,4,5,6,7,8. We can find the index of N in 
G. We conclude that 


IM] | INT | OW 
|G| = (\N| a [IN| ? |NC4)| |N@7)| 
IG) < (1+8+1+2) x 16 


IG] < (12 x 16) < 192 


) x [N| 


[17] 


Figure 8.1: Cayley Graph of 24 : 93 x C2 over (2 x 4: 2) 


8.2.1 Verification of 2+: S3 x Cy 


Consider the progenitor 2*° : (2 x 4: 2) where N is given by : 


S:=Sym(8); 

ww:=S!(2, 5) (3, 7); 
xx:=S!(1,2) (3, 6) (4, 5) (7, 8); 
yy:=S!(1, 3, 4, 7) (2, 6, 5, 8); 
zz:=S! (1, 4) (2, 5) (3, 7) (6, 8); 


N:=sSsub<S |ww, XX, YY, ZZ>; 


G<w,X,Vy,Z,t>:=Group<w, x,y,z,tlw°2,x°2,y 4,z°2 
“3 


K*V Lex *Y, VY -2*Z,WkKKWHXEZ,C°2, (t,w), (x*t) 


We will prove the isomorphism type of G. The composition factors of G are: 


G 
Cyclic (2) 


Cyclic (3) 


Cyclic (2) 


Cyclic (2) 


’ (wxy°-1) * 25 
, (WexX*Yy*t) 73>; 
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The composition series for G is: 


G = Go D G1 D G2 D G3 D G4 D Gs D Gg D G7 where G7 = 1. 


lic(2) 


lic(2) 


lic(2) 


The composition factors are: 


G = (Go\G1)(Gi\G2)(G2\G3)(G3\Ga)(G4\G5) (Gs\G6) (G6\G7) 


=(Go\G1)(G1\G2)(G2\G3) (G3\G4) (G4\Gs) (Gs \Ge)(Ge\1) 
=(Go\G1)(Gi\G2) (G2\G3)(G3\G)(Ga\Gs)(Gs\Ge)G7 


=G2G2G2G2G2G3Go. 


The normal lattice of G is as follows: 


Normal subgroup lattice 


[10 


hb 


Order 192 


Order 
Order 


Orde 


Orde 
Orde 


Orde 


Order 


Order 


Order 


96 
96 
96 


48 
32 


16 


Len 
Len 
Len 


Len 


Len 
Len 


Len 


Len 


Len 


Len 


gi 


g 
g 


gi 


gi 


ct cc 


dt ct 


Maxin 


Maxin 


Maxim 
Maxim 
Maxim 


Maxim 


Maxim 
Maxim 


Maxim 


al 


nal 


Maxin 


nal 


n 


nn 


ubgro 
ubgro 
ubgro 
ubgro 


ubgro 
ubgro 


ubgro 


ubgro 


ubgro 


ubgro 


ups: 
ups: 
ups: 


ups: 


ups: 
ups: 


ups: 


ups: 


ups: 


ups: 
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We are looking for the largest abelian group if possible or the center which factor G. 


In this case, G does not have a center, so we will find the largest abelian group by the 


following loop. 


99 


for i in [1..#NL]do if IsAbelian(NL[i]) then i;end if;end for; 


IsAbelian(NL[4]); 
true 


As we see NL[4] is the largest abelian group. Now, we have to verify if NL[4] & 2* by 
this Magma code. 


X:=[(2,2,2,2]; 
IsIsomorphic (NL[4],AbelianGroup (GrpPerm, (X)))j; 
true 


So, Magma tells us that NL[4] isomorphic to the abelian group 2+. Therefore, we have 
that Gy = 2+. Next, we will factor G1 by NL[4] resulting q which is the quotient group. 


H:=NL[4]; 
q, ££:=quo<G1|NL[4]>; 
ar 


Permutation group q acting on a set of cardinality 6 
Order = 12 = 2°2 x 3 


We will find the normal lattice for q by this Magma loop. 


nl:=NormalLattice (q); 
Ticks; 


Normal subgroup lattice 
7] Order 12 Length 1 Maximal Subgroups: 4 5 6 
6 Order 6 Length 1 Maximal Subgroups: 3 
5 Order 6 Length 1 Maximal Subgroups: 2 3 
[4] Order 6 Length 1 Maximal Subgroups: 3 
[3] Order 3 Length 1 Maximal Subgroups: 
[2] Order 2 Length 1 Maximal Subgroups: 
[1 Order 1 Length 1 Maximal Subgroups: 


First, we will fulfill if we have a direct product or not, so we want to see if q is collected 
of a direct product. Since we posses a normal subgroup of order 6 which is nl[4], and 


a subgroup of order 2 which is nl[2]. So, the product of two a normal subgroups orders 
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give us the order of q=12. We will check if q is direct product between nl/4] and nl{2] 
by this loop: 


E:=DirectProduct (n1[4],nl1[2]); 
IsIsomorphic(E,q); 

\x* 

true 

*\ 

IsIsomorphic (nl[4],SymmetricGroup (3) ); 
\x* 

true 

*\ 
IsIsomorphic(nl[2],CyclicGroup (2)); 
\x* 

true 


*\ 


As a result, we find that q = S3 x C2 where S3 = nL[4] and C2 = nL[2]. Now, we have 


to write a presentation of q. We will write a presentation for NL[4]. 


FPGroup(NL[4]); 
Finitely presented group on 4 generators 


Relations 

$.1°2 = Id(S) 

$.2°2 = Id(S) 

$.3°2 = Id(S) 

$.4°2 = Id(S) 

($ * $.2)°2 = Id($) 
($.1 * $.3)°2 = Id(S) 
($.2 * $.3)°2 = Id(S) 
($.1 * $.4)°2 = Id($) 
($.2 * $.4)°2 = Id(S$) 
($.3 * $.4)°2 = Id(S$) 


Our presentation is NL[4]=< w, x, y, z|w?, x”, y”, 27, (w*x)’, (wey), (xwxy)”, (w*z), (xx 
z)*,(y * z)? >. Now, we have to find the action $3 x 2 on 24. We determine the 
isomorphism type of this group since we had no center in G, so it is not a central 
extension. Also, we did not find a direct product as well since we have no normal 
subgroup of order 12. Therefore, the isomorphism type of this group must be a semi- 
direct product or a mixed extension. We will find transversal because it will help us to 


find a form to connect q to NL[4] to make an isomorphic representation of G. 
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T:=Transversal(G1l,NL[4]); 
RECEL AA): Sei. iQ cde 

true 
fE(T[3]) eq q.2; 
true 
FECT A) ) eg aeoy 
true 


We will label our generators of q, where T[2] is q.1, T/3] is q.2, and T[A] is q.5. 


Generators (NL[4]); 
A:=G1! (2, 6) (3, 8) (4, 5) (7, 9); 
B:=G1! (1, 11) (3, 7) (8, 9) (10, 12); 


C:=G1!(2, 5) (3, 7) (4, 6) (8, 9); 
D:=G1!(1, 10) (3, 8)(7, 9) (11, 12); 
H:=G1!T[2]; 

I:=G1!T[3]; 

J:=G1!T[4]; 


The following Magma code gives us the action of the transversals on the generators 


NL[4] are of order 2. A, B, C, D are represented by w, x, y, z and H, I, J are e, f, g. 


for i,j,k,l in [1..2] do if A°H eq A°i*B74«C°k*D* 1 
then 1, j,k,1; end if; end for; 

1212 --> we=wry 

for i,j,k,l in [1..2] do if A°I eq A*°i*B74«*«C°k*D*1 
then 1i,j,k,1l;end if; end for; 

T2112 —-> w f=wry 

for i,j,k,l in [1..2] do if A°J eq A°i*B74«*«C7k*D7*1 
then 1i,j,k,1l;end if; end for; 

2121 ..> w°g=xx*z 

for i,;3,k,;1) an [1.4.2] do: af B°H eq A°?*eBo «Cc k«eD° 1 
then 1i,j,k,l;end if; end for; 

212 2 --> x*°e=x 

for i,j,k,l in [1..2] do if B°I eq A*°i*B74«*«C°k*D7*1 
then i, j,k,1; end if; end for; 

2112 --> x*f=x«*y 

for i,j,k,l in [1..2] do if B°J eq A°i*B74«C°k*eD*1 
then 1i,j,k,1; end if; end for; 

2212 --> x*g=y 

for i,j,k,l in [1..2] do if C°H eq A*°i*B74«C°k*eD7*1 
then 1, j,k,1; end if; end for; 

2212 --> y°e=y 

for i,j,k, an [1.22] do if -€°R eq A-is¢B* 7*C*k*D? 1 


then 1i,j,k,1l;end if; 
22°11 2 ==> y°t=y 


for 24), k;, 1 
then i,j,k,1; 


in 


[lee 2] 


end if; 


212 2 ---> y°g=x 


for 


i,j,k,1 


in 


[dence 22] 


then 1i,j,k,l;end if; 


ZF de 2 


for i,j,k, 


for i,4,k, 


FPGroup (q) 


Dp 


Relations 


then i,j,k,1; 
12 12 --> z*g=wry 


eres a 


al: det 


’ 


1 --> zZ"e=xx*z 


Els. 2] 


then 1i,j,k,1l;end if; 
1111 --> z*f=wex«ty*z 


Pale 2] 


end if; 


Id($) 
Id($) 
Id($) 


end for; 


do: af CJ 
end for; 


do if D°H 
end for; 


do if DI 


end for; 


do if D°J 
end for; 


102 


eq Avix 


B°j*C°k*D7*1 


eq A“ixl 


B°j*C°k*D*1 


eq A“ixl 


B°j*C*k*xD*1 


eq Avi 


B°j*C*k*D7*1 


Finitely presented group on 5 generators 


We will suppose T[2]=e, T[3]=f and T/4J]=g. Now, we will test the elements of q and 


their relations. If we write the elements of q as the transversals of G\NL|4] we might 


observe the order of the relations changes. 


Order (T[2 
2 doesnt 
Order (T[3 
2 doesnt 
Order (T[4 
2 doesnt 
]*T[3] 


]*T[4] 
G1) 
4)*T[3] 
G1) 


1); 
change 
l); 
change 
l); 
change 


)a 23 
7) (4, 
)°2; 


6) (8, 


9) th 


equal id so leave alone 


"37 


same order does not change 


Finally, we have the complete presentation of G, which we verify by using Magma: 


H<w,X,y,z,e,f£,g>:=Group<w,x,y,Z,e,f,g|w 2,x°2,y°2,2°2, 
(w*x) “2, (w*xy) “2, (x*xy) “2, (w*z) “2, (x*z)°2, 
(y#2)°2,6°2,£°2,9 2, (ext) "2; (exg)."2;.(g¥t) 3, 
w°e=w*y,w f=w*y,W g=x*z,x e=x,xX° f=x*y,xX° g=y, 
ye=y,y f=y,y° g=X,Z° C=X*Z, 

zZ° f=wxxx*xy*Z,Z° g=wry>; 

#H; 

192 

#G1; 

192 

f1,H1,k1:=CosetAction (H, sub<H|Id(H)>); 
s:=IsIsomorphic(Gl,H1); 

S; 

true 


We solved the extension for G, so we could obtain that G = 24: $3 x Co. 
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8.3. Double Coset Enumeration of (2° : 5;) over (2 x 4: 
Cy x C) 


Consider the group G = Sal, ~ (2° : $4) where N=(2 x 4: 


C2 x C2). The presentation of G is given by: 


G<x,y,Z,w,h,t>:=Group<x,y,z,w,h,t|x°2,y°2,z°2,w 4,h°2, (y*z) “2, 
(x*w°-1)°2, (y*w°-1)°2,z*w°-lL*zew,wo-2*h,xx*xy*x*yew 1, 
X*Z*X*Z*H, t°2, (t,x), (yet) 73, (zewet) 70, (z*x*t) 70, 

(y*xxt) 76, (yxx*zx*t) ~3>; 


Where 
8)(3, 7)(4, 14) (6, 10)(9, 13) (11, 16) 
y ~ (1,2)(3, 9)(4, 8)(5, 10) (6, 14)(7, 11) (12, 16)(13, 15) 
z ~ (1,3)(2,9)(4, 12)(5, 7)(6, 13)(8, 16)(10, 11)(14, 15) 
~ (1, 4,5, 14)(2,6, 10, 8)(3, 12, 7, 15)(9, 13, 11, 16) 
h ~ (1,5)(2, 10)(3, 7)(4, 14) (6, 8) (9, 11)(12, 15)(13, 16) 
Now, we check the number of single cosets that will appear in our Cayley diagram. 
Sa get this means the sum of all single cosets should equal 24 in our Cayley 
diagram. Next, we will figure out the number of double cosets of our group by helping 


nn (2, 


this Magma code. 


#DoubleCosets (G, Ssub<G|x,y, Z,w,h>, Sub<G|x,y,Z,Ww,h>) ; 
5 


This means that our Cayley diagram has 5 circles. The next step is that we are going 
to expand our relations. 


The first relation is 


(yxrxzet ize 
(yeux z*t))? =esincet~ ty 
(ye w+ 28 1” 4 at me 
(yxx*z)> *tq* tig *t, =e 


(yx ae z)> x tq * tig = ty 


So, we have tytig ~ t1. 
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The second relation is 


(yxxxt)® =e 
(y*x*t,)® =e sincet~ ty 
Cy 2) LEY 4 UM 4g LO? 4 OP? ty 
(y* x)® * te * ts * tig * tig * tg x ty =e 


(y* x)° * te * ts * tig * tia *tg = ty 


So, we have tetstiotratg ~ ty. 


The last relation is 


(y*t)? =e 
(y*t1)> =e sincet~ ty 
2 

yet, Ate He 
y> «ty *to*t; =e 


y> «ty *to = ty 


So, we have t)tg ~ t. 

Constructing the Cayley Diagram: 

Circle One: First Double Coset : 

We will use this definition of a double coset NwN = {n € N|Nw"}. We consider our 
first double coset NeN = {n € N|Nen}={Ne}={N} which we denote by |*]. Our con- 
trol group N is transitive on {1, 2,3, 4, 5,6, 7,8,9, 10, 11, 12,13, 14, 15, 16}, so it has a sin- 
gle orbit {1, 2,3, 4,5,6,7,8,9, 10,11, 12, 13,14, 15,16}. The number of right cosets in [*] 
is equal to rect So, we will put 1 into the first circle. Next, we will determine the 
double coset to which Nt; belongs, where i € {1, 2,3, 4,5,6,7,8,9, 10,11, 12, 13,14, 15,16}. 
We consider i=1, so Nt, is a representative coset, and hence we have a new double coset 


Nt,N. 


Circle two: Second Double Coset: 

We consider the double coset NwN, where w is a word of length one. 

Nt,N = {n € N|Ntin}. We consider the coset stabilizer N“, note that the coset 
stabilizer of Nt, is equal to the point stabilizer N!. N@ = {n € N|Nt® = t1} > 
< (2,8)(3,7)(4, 14)(6, 10)(9, 13)(11,16) >. Since |N“™|=2 then the number of single 
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cosets in [1] is Ina) 
Now, the orbits of N@ on {1,2,3, 4,5, 6,7, 8,9, 10, 11,12, 13,14, 15,16} are {1}, {5}, 
{12}, {15}, {2,8}, {3,7}, {4, 14}, {6, 10}, {9, 13} and {11, 16}. 

We take representative from each orbit and determine to which double coset 


Nett, Ntyts, Ntyt12, Nett, Ntyto, Nits, Ntyta, Nityte, Ntytg, and Ntyti1 belongs. 


IN| _32 
2 
1) 


We notice the following: 

e Ntitj=Nt2=N € [*). 

This will collapse and hence it goes back to the double coset [*] since t?=e. 

© Ntitig=Ntitie € [112]. 

This is a new double coset, which will extend the Cayley diagram from [1] to [112]. 

© Ntits=Ntits € (15). 

This is a new double coset, which will extend the Cayley diagram from [1] to [15]. Since 
there is one element in this orbit, there is one symmetric generator which will extend 
to the double coset [15]. 

e Ntytis=Ntytis € [115]. 

This is a new double coset, which will extend the Cayley diagram from [1] to [115]. 
Since there is one element in this orbit, there is one t; that extend [1] to [115]. 

° Ntit3=Ntyts € [13]. 

This is a new double coset, which will extend the Cayley diagram from [1] to [13]. Since 
there is two elements in this orbit {3,7}, there is two t; that extend [1] to [13]. 

e Ntyts=Neytg € [14]. 

This is a new double coset, which will extend the Cayley diagram from [1] to [14]. Since 
there is two elements in this orbit {4,14}, there is two t; that extend [1] to [14]. 

e Ntytga=Nt, € [1]. 

By the last relation y? * t; * tg = t1, there are two elements in the orbit {2,8}, so two 
elements will loop back into the double coset [1]. 

e Ntyts=Nty € [1]. 

From this relation t; «tg = y * x * w * ty, there are two elements in the orbit {6,10}, so 
two elements will loop back into the double coset [1]. 

e Ntyto=Ntys € [1]. 


By this relation t; * to = y * @ * z * ty4, there are two elements in the orbit {9,13}, so 
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two elements will loop back into the double coset [1]. 

e Ntiti=Nti € [1]. 

By this relation t; * tj; = y* z* x * ty4, there are two elements in the orbit {11,16}, so 
two elements will loop back into the double coset [1]. 

As a result, we observe that from the previous steps eight elements loop back into the 
double coset [1] and 5 new double cosets which are [15], [112], [115], [13], and [14]. Now, 
we will check by this Magma code if some of these new double cosets are equal. 

for n in IN do if ts[1l]*ts[15] eq nxts[1l]*ts[12]then n; 

end if; end for; 
for n in IN do if ts[1l]*ts[15] eq nxts[l]*«ts[3]then n; 
end if; end for; 


for n in IN do if ts[1l]*ts[3] eq nets[1l]«*«ts[12]then n; 
end if; end for; 


So, [112] = [115] = [13] the same double cosets. Therefore, we have 3 new double cosets 
[115], [15], and [14]. 


Circle Three: Third Double Coset : 
We are a new double coset [15]. NtjtsN = {n € N|Ntitsn}. The coset stabilizer of 
NtitsN is given by N@5) = {n € N|Ntyt® = tits} > < (2,8)(3,7)(4, 14)(6, 10) (9, 13) 
(11, 16), (1, 2)(3, 9)(4, 8)(5, 10)(6, 14)(7, 11)(12, 16) (13, 15) >. 
When we conjugate t,ts by all elements of N, we will observe that there are cosets have 
equal names and the relation increases our |N“5)|. The cosets have equal names as 
follows: 15 ~ 210 ~ 37 ~ 414 ~ 51 ~ 86 ~ 911 ~ 68 ~ 102 ~ 73 ~ 1215 ~ 144 ~ 
1613 ~ 1316 ~ 119 ~ 1512. 

il eG a single coset 
)NG5)| 32 
in [15]. Now, we can see the orbits of N“®) on {1, 2,3, 4,5, 6, 7,8, 9, 10, 11, 12, 13, 14, 15, 16} 
are {1,2,3,4,5,6,7,8,9, 10, 11, 12, 13, 14, 15, 16}. 
We take 5 representative from the orbit and determine that Ntitsts = Nt, € [1]. 
As a result, all sixteen t; take [15] to [1]. 


Since |N(!5)|=32 then the number of single cosets in [15] is 


Circle four: Fourth Double Coset: 
We are a new double coset [112]. Ntiti2N = {n € N|Ntytign}. The coset stabilizer of 
Ntyti2N is given by N(?) = {n € N|Ntyt?, = titi2} > < (2,8)(3, 7)(4, 14) (6, 10) 
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(9, 13)(11, 16), (1, 3)(2, 9) (4, 12) (5, 7)(6, 13) (8, 16)(10, 11)(14, 15) >. When we conjugate 
tyt12 by all elements of N, we can find these cosets have equal names 112 ~ 34 ~ 515 ~ 


N 32 
714. Since |N(?)|=8 then the number of single cosets in [112] is wy =—=4a 
|NG12)| 8 


single coset in [112]. 

Now, we can see the orbits of N“!*) on {1, 2,3, 4,5, 6,7, 8,9, 10,11, 12,13, 14, 15, 16} are 
{1,3,5, 7}, {4, 14, 12,15}, and {2, 8,9, 16, 10,6, 13,11}. We choose a representative from 
each orbit. If we select t3 from the orbit {1,3,5,7}, tig from the orbit {4, 14, 12,15} 
and t from the orbit {2,8,9, 16, 10,6, 13,11}. 

Then, we notice that. 

e Ntitists € [1]. 

From this relation: 

titio = h* tata 

titiotz = h« te € [1]. 

Therefore, 4 symmetric generators will send to the double coset [1]. 

e Ntytigtiz=Nt, € [1]. 

Therefore, 4 symmetric generators will send to the double coset [1]. 

e Ntytyte=Nty € (1). 

From this relation: 

tytjg = z* vx totyy 

tytigtg = z* xx ty € [1]. 

Therefore, 8 symmetric generators will extend to the double coset [1]. 


Finally, all of sixteen t; take [112] to [1]. 


Circle five: Fifth Double Coset: 

We label the fifth double coset [14] and compute the coset stabilizer N“4), The coset sta- 
bilizer of Ntyt4N is given by N(4) = {n € N|Ntyt? = tyta} > < (1,2)(3, 9)(4,8)(5, 10) 
(6, 14)(7, 11)(12, 16)(13, 15) >. Since | N“)|=16 then the number of single cosets in [14] 
at ==? a single coset in [14]. 

Now, we can see the orbits of N@*) on {1, 2,3, 4,5, 6, 7,8, 9, 10, 11, 12, 13, 14, 15, 16} are 
{1,2,3,4, 5,6, 7,8, 9, 10, 11, 12, 13, 14, 15, 16}. 

We choose a representative 4 from the orbit {1, 2,3, 4,5,6,7,8,9, 10,11, 12, 13, 14,15, 16} 
and determine that Ntytqt, = Nt, € [1]. 


is 
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As a result, all sixteen t; take [14] to [1]. Finally, we could construct our Cayley diagram. 


8.3.1 Verification of (2° 


IML, INL, IM, IM 
ING NCH] "INERT * [VA 
IG] <(14+164+2+4+1) x32 


IG] < (24 x 32) < 768 


IG] < (INI 4 


24+2+2+2 


[14] [112] 


ie 


[N| 


Figure 8.2: Cayley Graph of (2° : S4) over (2 x 4: C2 x C2) 


: Sa) 


Consider the progenitor 2*!© : N where N is given by: 


S:=Sym(16); 

XX:=S!(2, 8) (3, 7) (4, 14) (6, 10) 7 3) (11, 16); 
yy:=S!(1, 2) (3, 9) (4, 8) (5, 10) (6, (7, 11) (12, 
zZ:=S!(1, 3) (2, 9) (4, 12) (5, 7) (6, 13) (8, 16) (10, 
ww:= S!(1, 4, 5, 14) (2, 6, 10, 8) (3, 12, 7, 15) 
hh:=S! (1, 5) (2, 10) (3, 7) (4, 14) (6, 8) (9, 11) (12, 
N:=sSsub<S|xx, yy, zz,ww,hh>; 

#N; 


G<x,y,Z,w,h,t>:=Group<x,y,zZ,w,h,t|x°2,y°2,z°2,w 4, 


h*2, (y*z) 2, (x*w*-1) 72, 
w -2*h,xx*xy*xxx*yrew 1, 
“0, (z*xxt) 70, 


(y*w°-1) 


X*Z*X*Z*A, C72, 


(zZ*xwxt) (yxxxt) 


“6, (y*xX*Z*t) 


*2,Z*W -1*Zzkw, 
(y*t) “3, 


(t,x), 
*3>; 


(9, 


15 


We will prove the isomorphism type of G. The composition factors of G is given by: 


Cyclic (2) 


Cyclic (3) 


Cyclic (2) 


Cyclic (2) 


Cyclic (2) 


Cyclic (2) 


Cyclic (2) 


Cyclic (2) 


Cyclic (2) 


The composition series for G is: 


G = Gp D Gi D Go D G3 D G4 D Gs D Gg D G7 D Gg D Gog where Gp = 1 


The composition factors are: 

G = (Go\G1)(Gi\G2) (G2\G3)(G3\Ga)(G4\Gs5) (Gs\G6) (G6\G7)(G7\Gs) (Gs \Go) 
=(Go\G1)(Gi\G2) (G2\G3)(G3\Ga)(G4\G5) (Gs \G6) (G6\G7)(G7\Gs)(Gs\1) 
=(Go\G1)(G1\G2)(G2\G3)(G3\Ga) (Ga\Gs)(Gs\Ge)(G6\G7) (G7\Gs)Go 
=G9G2G2G2G2G2G2G3Go. 

The normal lattice of G is as follows: 


NL:=NormalLattice (G1); 
NL; 
Normal subgroup lattice 


16 Order 768 Length 1 Maximal Subgroups: 13 14 15 
15 Order 384 Length 1 Maximal Subgroups: 12 

14 Order 384 Length 1 Maximal Subgroups: 12 

13 Order 384 Length 1 Maximal Subgroups: 11 12 

1 Order 192 Length 1 Maximal Subgroups: 10 

[11 Order 128 Length 1 Maximal Subgroups: 7 8 9 10 
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[10 Order 64 Length 1 Maximal Subgroups: 4 5 6 
9 Order 32 Length 1 Maximal Subgroups: 3 5 
8] Order 32 Length 1 Maximal Subgroups: 3 4 
7] Order 32 Length 1 Maximal Subgroups: 3 6 
6 Order 16 Length 1 Maximal Subgroups: 2 
5] Order 16 Length 1 Maximal Subgroups: 2 
4] Order 16 Length 1 Maximal Subgroups: 2 
3 Order 8 Length 1 Maximal Subgroups: 2 
2 Order 4 Length 1 Maximal Subgroups: 1 
1 Order 1 Length 1 Maximal Subgroups: 


We are looking for the largest abelian group if possible or the center which factor G. 
In this case, G does not have a center, so we will find the largest abelian group by the 


following loop. 


for i in [1..#NL]do if IsAbelian(NL[i]) then i;end if;end for; 
\x* 


x \ 
IsAbelian(NL[9]); 
\x* 


true 


As we see NL[9] is the largest abelian group. Now, we check NL[9] & 2° by Magma 


code. 


X:=[2,2,2,2,2]; 
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IsIsomorphic (NL[9],AbelianGroup (GrpPerm, (X)))j; 
true 
So, Magma tells us that NL[9] isomorphic to the abelian group 2°. Therefore, we have 


that G2 = 2°. Now, we can produce a presentation for NL[9] as: 


a a 


S<w, X,Y,Z,V>:=Group<w,X,V,Z,V|W°2,x°2,y 
(w*x) “2, (w*xy) “2, (x*xy) “2, (w*z) 72, (x*z) 72 
(Wkv) “2, (X*v) 72, (y*xv) 72, (z*v)°2>; 
ff,ss,kk:=CosetAction(S,sub<S|Id(S)>); 
s,t:=IsIsomorphic(ss,NL[9]); 


' 
ry 


S; 
true 


Next, we will factor G1 by NL[9] resulting q which is the quotient group. 


H:=NL[9]; 
g, ££:=quo<G1|NL[9]>; 
Gr 


Permutation group q acting on a set of cardinality 4 
Order = 24 = 2°3 x« 3 
(1, 2) (3, 4) 


We will now find the normal lattice for q by this Magma loop. 


nl:=NormalLattice(q); 
nls 


Normal subgroup lattice 

[4] Order 24 Length 1 Maximal Subgroups: 3 
131 Order 12 Length 1 Maximal Subgroups: 2 
1 Order 4 Length 1 Maximal Subgroups: 1 
1 Order 1 Length 1 Maximal Subgroups: 


We could figure out q isomorphic to 54 as follows: 


IsIsomorphic (SymmetricGroup (4),q); 


true 


FPGroup (q) ; 


Finitely presented group on 6 generators 
Relations 


The presentation of g = S4 as follows: 


H<e, f£,g,h>:=Group<e,f,g,h|e°2,f£°2,g°2,h°2, (exg) “2, (fxg) °2, 
(exh) “2,exfxexrfxg,hxgrexhxg, (h*f) ~3>; 
ff,ss,kk:=CosetAction (H, sub<H|Id(H)>); 


s,t:=IsIsomorphic(q,ss) ; 


Ss; 
true 
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Now, we begin the approach of defining the action of Q on K by labeling the generators 


of NL[9] and the generators of q as follows: 


g, ££: =quo<G1|NL[9]>; 


Permutation group q acting on a set of cardinality 4 


H:=NL[9]; 
Gr 

Order = 24 
(1, 2) (3, 
(2, 4) 
Id (q) 

(1, 3) (2, 
Id (q) 

(3, 4) 
EE:=q! (1, 
FF:=q! (2, 
GG:=q! (1, 


= 2°3 « 3 
4) 

4) 

2) (3, 4); 
4); 

3) (2, 4); 
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DD:=q! (3, 4); 


T:=Transversal (G1,NL[9]); 
FE CE E2]) 3 

fE(T[3]); 

f£(T([4]); 

f£E(T[5]); 

ffF(T[3]) eq FF 

true 

ffF(T[2]) eq EE; 

true 

ff(T[4]) eq GG 

true 

fE(T[5]) eq DD; 

true 

gq eq sub<q|EE,FF,GG,DD>; 
true 


We will label our generators of q, where T[2], T[3], T[4], and T[5] are represented by 
q.2, q.3, q.4, and q.6, respectively. 


Generators (NL[9]); 


A:=Gl!(1, 24) (2, a 9) (4, 15) (5, 6) (8, 19) (10, 20) 
(liy OI (0e, Wer. £8) ee Sayre 293): 

B:=Gl!(1, 16) (2, 15 19) (4, 7) (5, 12) (6, 13) (8, 9) 
(Op. Uy” BONA Oey tit: 18) (22, 24); 

C:=G1!(1, 17) (2, ae sla ets Pemns Ole lc mes Uo me Ce meee 

(16, 18) (23, 24); 

D:=G1! (2, 6) (3, 11) (4, 12) (5, 7) (8, 10) (9, 21) 

(13, 15). (19,.-20)% 

F:=Gl! (2, 4) (3, 9) (5, 13) (6, 12) (7, 15) (8, 19) 
(105-20) (aa. By 2 

J:=G1!T[2]; 

I:=G1!T[3]; 

M:=G1!T[4]; 

O:=G1!T[5]; 


Now, the following Magma code gives us the action of the transversal on the generators 
NL[9] which are of order 2. A, B, C, D, and F are represented by w, x, y, z, and v and 
J, I, M, and O are represented by e, f, g, and h. 

for i,j,k,1l,m in [1..2] do if A°J eq A°i*B*4j*C°k*D*1*‘F*m 

then 1i,j,k,1,m;end if; end for; 

122 12 ---> w°e=wx«z 

for i,j,k,1l,m in [1..2] do if A°I eq A°i*B*j*C°k*D*1*F*m 
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then 1i,j,k,1,m; end if; end for; 


11112 ---> w°f=wex«y*z 

for i,j,k,1l,m in [1..2] do if A°M eq A°i*B*4j*C°k*«D*1*F*m 
then 1i,j,k,1,m;end if; end for; 

1212 2 ---> wg=wry 

for i,j,k,1l,m in [1..2] do if A°O eq A°i*B*4*C°k*«D*14*‘F*m 


Fh Fh 


then 1i,j,k,1,m; end if; end 
21112 ---> wih=x*y*z 

for i,j,k,1l,m in [1..2] do if 
then 1i,j,k,1,m; end if; end 


Or; 


B*J eq A°i*B°j*C°k*D°1l*F*m 
Ox; 


Fh Fh 


211312 ---> x*e=x*y*z 
for i,j,k,1l,m in [1..2] do if B°I eq A°i*B*4j*C°k*D*1*F*m 
then 1i,j,k,1,m;end if; end for; 


21212 ---> x*f=x*z 

for i,j,k,1l,m in [1..2] do if B°M eq A°i*B*4*C°k*D*1*F*m 
then 1,j,k,1,m; end if; end for; 

212 12 ---> x*g=x*z 


for a1 ,j,pk,;lym am [1.2.2] .do- 2 
then 1i,j,k,1,m; end if; end 
1221 2 ---> x*h=w*z 
FOL ky), Kym ons [12]? do: 
then 1i,j,k,1,m; end if; end 
2212 2 ---> y°e=y 

for i,j,k,1l,m in [1..2] do if C°I eq A°i*B*4j*C°k*D*1*F*m 
then 1i,j,k,1,m;end if; end for; 

22112 ---> y°f=y*z 

for i,j,k,1,m in [1..2] do i! 
then i,j,k,1,m; end if; end 
2212 2 ---> y°g=y 

for i,j,k,1l,m in [1..2] do if C°O eq A°i*B*4j*C°k*«D*1*F*m 
then 1i,j,k,1,m;end if; end for; 


B*O eq A°i*B°j*C°k*D°1*F*m 
Ox; 


Fh Fh 


C°J eq A°i*B°3*C*k*xD*1*F*m 
Ox; 


FH Fh 


C°M eq A*i*B*j*C*k*D*1*F*m 
Ox; 


Fh Fh 


2212 2 ---> yh=y 

for i,j,k,1l,m in [1..2] do if D°J eq A°i*B*4j*C°k*D*1*‘F*m 
then 1i,j,k,1,m; end if; end for; 

22212 ---> z"e=z 

for i,j,k,1l,m in [1..2] do if D°I eq A°i*B*4j*C°k*«D*1*F*m 
then 1,j,k,1,m;end if; end for; 

22212 ---> z*f=z 

for i,j,k,1l,m in [1..2] do if D°M eq A°i*B*4*C°k*D*1*F*m 


then i, j,k,1,m;end if; end for; 

22212 ---> z°g=z 

for i,j,k,1l,m in [1..2] do if D°O eq A°i*B*4*C°k*D*1*‘F*m 
then 1i,j,k,1,m; end if; end for; 

ZA. 201) Qe aae on hay eZ 
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for i,j,k,1l,m in [1..2] do i! 
then i,j,k,1,m;end if; end 
22211 ---> v"e=zev 

for i,j,k,1l,m in [1..2] do if F°I eq A°i*B*j*C°k*D*1*F*m 
then 1i,j,k,1,m;end if; end for; 

22221 ---> v°f=v 

for i,j,k,1l,m in [1..2] do if F°M eq A°i*B*4*C°k*D*1*‘F*m 
then 1i,j,k,1,m;end if; end for; 

222 2 1 ---> v°g=v 

for i,j,k,1l,m in [1..2] do if F°O eq A°i*B*j*C°k*«D*1*‘F*m 
then i, j,k,1,m;end if; end for; 

111121 ---> vV7h=wkex«y*z*v 


F FE°J eq A7~ixB°j*C°k*D°1l*F*m 
£OxL; 


Now, we put together presentations of NL[9] and q with words are given above. Thus, 


2 e 


=wez,wh =weee«yr zw) = 
h 


z)*,(y * 2)”, (w * v)’, (x * v)?, (y * Vv), (z * v)?, Ww 


wey,w? =axyxz,c =axyxz,cf =a 7,09 = 2* 2,2 


y * 2, y9 y,y” y, 2 z, zt Zz, 29 z, 2h y*z,v° = zx*v,vF v,vI = v,v 


weaxyxzev,e, f?,g’,h?, (exg), (fxg), (exh), ex feex fg, hegrexheg, (hf)? >. 


=wezy =yy) = 
h 


#M; #G1; 

768 

£1,M1,k1:=CosetAction (M, sub<M|Id(M) >); 

s:=IsIsomorphic(G1,M1); 

Ss; 

true 

As we see by asking Magma if this is isomorphic to Gl, we determine this is true, so we 


have a semi direct extension. We solved the extension for G, so we could obtain that 


G22: G4. 


8.4 The Double Coset Enumeration of 2*4: A; over 2? 


We take the progenitor 2*4 : A; where 2*4 is the free product of 4 copies of 
cyclic groups of order 2 and we will factor our group by these relations (y *t)°, (a *t)°, 
and (a *y*t)°. let GY 2**: As be a symmetric presentation of G given by: 


G<x,y,t>:=Group<x,y,t|x°2,y°2,x*y° -1l*x*y,t°2, (x*t) “10, (y«*«t) “3, 
(x*t) 75, (x*xy*t) 75>; 
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Where x = (1,2)(3,4) and y = (1,3)(2, 4). 
Using computer-based program-MAGMA: 
1. The order of our group is equal 60. 


2. There are 6 double coset in this double coset enumeration of G over N. 
IG] | 60 _ 15 
IN| 40° 


this means the sum of all single cosets should equal 15 in our Cayley diagram. 


3. the number of single cosets that will appear in our Cayley diagram,it is —— 


Relations: 
The next step is that we are going to expand our relations. 


The first relation is: 


(yxt) = 
(y *t1)> =e sincet ~ ty 
2 
Pu el ett =e 
y? * ty * tz *ty =e 


yr «ty «ts =ty 


So, we have t)t3 ~ t. 


Moreover, if we conjugate the previous relation by all elements of 


N={Id(N), (1, 2)(3, 4), (1, 3)(2, 4), (1, 4)(2, 3)}. We have 
© ((1,3)(2,4)tits = t1)° > oe 3)(2, 4)tits = th. 

© ((1,3)(2,4)tits = ty)" = (2,4)(1,3)tota = to. 

© ((1,3)(2,4)tits = ti)" => (3,1)(4, 2)tgtr = ts. 

© ((1,3)(2, 4)tits = ti)" => (4, 2)(3, 1)tate = ta. 


The second relation is: 


(2@*t)P=e 
(2 *t1)° =e since t~ ty 
ott eth et? *tt xt) =e 
x? «ty * to *ty to xt; =e 


x? * ty x to *ty = ty * te 


So, we have tytoty ~ tite. 


Moreover, if we conjugate the previous relation by all elements of N, we have 
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© ((1,2)(3, 4)tytoty = tyta)® > (1,2)(3, 4)titoty = tite 

© ((1, 2)(3, 4)titet: = tite)\427 C4 = (2,1)(4, 3)tetite = toty 
© ((1, 2)(3, 4)titoty = tyte)C9C* = (3,4)(1, 2)tgtatz = tata 
© ((1,2)(3, 4)tytet, = tyt2) P93) = (4,3) (2, 1)tatgta = tats. 


The last relation is: 


(x9*yxt) =e 

(x *y*t,)? =e since t~ ty 

(x xy)? * peru)" * poor)? * gor)?” 41, a Se 
(2x y)*t  *ta*t, *taeti =e 


(aw xy)? * ty *tg* ty = thts 


So, we have tyt4ty ~ tyta. 
Also, if we conjugate the previous relation by all elements of N, we have 


e ((1, 4) (2, 3)titaty = titi)” => (1; 4)(2, 3)titaty = tyt4 


e ((1, 4)(2, 3)titaty = tyta)! (1,2)(3,4) = = (2 , 3)(1, 4)totgte = tot3 
e ((1, 4)(2, 3)titaty = tyt4)! (1,3)(2,4) < =(3, 2)(4, 1)tgtets = tzte 
© ((1,4)(2, 3)tytat, = tyt,) E923) = (4, 1)(3, 2)tatita = tat. 


8.4.1 Constructing the Cayley Diagram: 


We will begin the manual double coset enumeration by looking at our first 
double coset. 
Double Coset [*] : 
We will use this definition of a double coset NwN = {n € N|Nw"}. We consider our 
first double coset NeN = {n € N|Nen}={Ne}={N} which we denote by |*]. Our con- 
trol group N is transitive on {1, 2,3, 4} so, it has a single orbit {1,2,3,4}. The number 
of right cosets in [*] is equal to La Now, we will determine the double coset to 
which Nt; belongs, where 7 € {1,2,3,4}. We consider i=1, so Nt, is a representative 
coset, and hence we have a new double coset Nt; N which is denote by [1]. 
Double Coset [1] : 


We consider the double coset NwN, where w is a word of length one. NwN = {n € 
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N|Nw"} Nt N = {n € N|Ntin} ={Nt, Nt, Nts, Nt4}. 

We consider the coset stabilizer N“), note that the coset stabilizer of Nt, is equal to the 

point stabilizer N'. NO = {n € N|Nt? =t,} > < Id(N) >. Since |N“|=1 then the 
N| 4 

on ii Now, the orbits of N“ on {1,2,3, 4} are 

IN@| 1 

{1},{2},{3}, and {4}. We take representative from each orbit and determine to which 

double coset Nett, Ntyto, Ntyts, Ntyt4 belong. 


number of single cosets in [1] is 


We observe as follows: 

e Ntitj=Nt?=N € [*] 

This will collapse and hence it goes back to the double coset [*] since t?=e. 

e Ntito=Ntite € [12]. 

One element will move forward to a new double coset represented as [12]. 

e Ntyt3=Nt, € [1]. 

By this relation t;t3 = yt ,, there is one element in the orbit so one element will loop 
back into the double coset [1]. 

e Ntyt4=Ntyt4 € [14]. 

One element will move forward to a new double coset represented as [14]. 

Double Coset [12] : 

We are a new double coset [12]. Ntjt2N = {n € N|Ntitan}. The coset stabilizer of 
Ntyt2N is given by NO?) = {n € N|Ntyt® = tite} > <e>. 


N 4 
Ed —=4 a single coset 


: (12) | : 7 se MAMI 
Since |N“*)|=1 then the number of single cosets in [12] is ING?) 


in [12]. 

Next, we conjugate Ntytg by all elements of N={Jd(N), (1, 2)(3, 4), (1, 3)(2, 4), (1, 4) (2, 3)}. 
We have 

© (tyt2)® = tytn. 

© (tt2)t2IG4 = toty. 

© (tyta)EV24) = tyty. 

© (t1t2)E%VC3) = tyts. 

Now, the orbits of N“?) on {1,2,3,4} are {1}, {2}, {3}, and {4}. We take representa- 
tive from each orbit and determine to which double coset 

{Ntitoti, Ntitete, Ntitets, Ntitet4} belong. We notice the following: 

@ tytot) = x * tte € [12]. 


so,one element will loop back into the double coset [12]. 
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e tytgt2 = t; € [1]. So, one element will extend from [12] to the double coset [1]. 

e titets = titetg € [123]. 

This is a new double coset, which will extend the Cayley diagram from [12] to [123]. 
Since there is one element in this orbit, there is one t; that extend [12] to [123]. 

e titot, = tits € [14]. 

So, one element will extend from [12] to the double coset [14]. 

Double Coset [14] : 

We are a new double coset [14]. NtitaN = {n € N|Ntitan}. The coset stabilizer of 
NtitaN is given by N(4) = {n € N|Ntit? = tita} > < Id(N) >. 

way a single coset 
in [14]. Now, the orbits of N“4) on {1,2,3,4} are {1}, {2}, {3}, and {4}. We take 
representative from each orbit and determine to which double coset 


{Nt tat, Nt, tate, Ntytats, Nt, tata} belong. We notice the following: 


Since |N4)|=1 then the number of single cosets in [12] is 


e tytyty =xx*x yx tyt, © [14]. 

So, one element will loop back into the double coset [14]. 

e tyt4t4 = ty € [1]. So, one element will extend from [12] to the double coset [1]. 

e tytyts = tytatg © [143]. 

This is a new double coset, which will extend the Cayley diagram from [14] to [143]. 
Since there is one element in this orbit, there is one t; that extends [14] to [143]. 


e tyt4t2 = tyt2 € [12]. So, one element will extend from [14] to the double coset [12]. 


Double Coset [123] : 

We are a new double coset [123]. Ntitot3N = {n € N|Ntytot3n}. The coset stabilizer 
of Ntytot3N is given by N23) = {n € N|Ntytot® = titet3} > < (1, 2)(3, 4), (1,3)(2, 4), 
(1, 4)(2,3) >. When we conjugate titatz by all elements of N, we observed that there 
are cosets have equal names 123 ~ 214 ~ 341 ~ 432 and the relation increases our 
|N@23)|, Since |N(@?3)|—4 then the number of single cosets in [123] is Fares a 
single coset in [123]. Now, the orbits of N“?8) on {1,2,3,4} are {1,2,3,4}. We take 
representative from the orbit and determine to which double coset belongs. We will 


pick 3 from the orbit {1,2,3,4}. As a result, four symmetric generators are going to 
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the double coset [12] because tytgtgtz = tyt2 € [12]. 
Double Coset [143] : 

We are a new double coset [143]. Ntitytg3N = {n € N|Ntitat3n}. The coset stabilizer 
of Ntyt4t3N is given by N“43) = {n € N|Ntytat® = tytatzs} > < (1,2)(3, 4), (1,3)(2, 4), 
(1, 4)(2,3) >. Since |N(48)|=4 then the number of single cosets in [143] is 


[NG43)) 4 
a single coset in [143]. Now, the orbits of N“49) on {1,2,3,4} are{1,2,3,4}. We take 


representative from the orbit and determine to which double coset belong. We will pick 
3 from the orbit {1,2,3,4}. As a result, 4 symmetric generators are going from the 
double coset [143] to [14] because tytat3t3 = tita € [14]. 

Conclusion: 


The double coset enumeration gives that: 


POET ce, PMT ge 2 PIES ge ENE EN 
|N@)| |N@2)| |.N (123) | |NC4)| |.N (43) 
IG] < (1+444+44+14+441)x4 


IG| < (|N|4 ) x [N| 


|G] < (15 x 4) < 60. 


[123] 


[143] [14] 


Figure 8.3: Cayley Graph of 2*4 : As over 2? 
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8.5 Manual Double Coset Enumeration of 5, over (2x4 : 2) 


In the beginning, we can do some steps which help us to figure out our Cayley 


G| 720 
diagram how it will be. First, we have to calculate that a AG This means the 
sum of all single cosets should equal 45 in our Cayley diagram. Then, we need to know 


how many double cosets we will have, we can check that by Magma code as follows: 


#DoubleCosets (G, sub<G|w, x,y, z>,Ssub<G|w,x,y,Z>); 
8 


So, our Cayley diagram has 8 double cosets. Now, our group has this presentation 


2 1 


w!,t?, (t,x), (y*t)*, (zewt)?, (yxart)®, (yeruzet)?, cxtewlataw lataw!, (zet)4 >. 
Where x=(2, 5)(6, 8), y=(1, 2)(3, 6)(4, 5)(7, 8), z=(1, 3)(2, 6)(4, 7)(5, 8), and 
w=(1, 4)(2, 5)(3, 7)(6, 8). 


*8. i 
Next, we factor our progenitor 2*8:(2x 4:2) 


yxt)4 (zxwet)3 (yxaxt)® (yxaxzxt)? (zxt) 


z = S¢ by these relations: 
The first relation is: 

(y*t)* =e. 

(y *t1)4 =e since t ~ ty. 

yt th at! «ati =e. 

tg * ty *to*t) =e. 

to * ty = ty * to. 

So, we have tat; ~ tyto. 


The second relation is: 


( 
(z* wt)? =e since t ~ ty. 
(z* w)? x torw)? ties =e. 
(z*w)? «ty *t7*t, =e. 
(z*w)? *t, = ty * tz. 

So, we have t, ~ tytz. 

The third relation is: 
(yxaxt)® =e. 

(y*xax«t,)® =e since t ~ ty. 


5 4 3 2 
(y « x) x torr) i ter) Z tr) < tur) ee ee 
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(y* x) * ts «ty * to * ty * ts * ty =e 
(y * x)® * ts * ty * te = ty * ty * tg. 
So, we have t5tyte Fou tyt5tg. 


The forth relation is: 


y*xax*xz*t,)? =esincet~ ty 


( 
( 
(y a 2) UT ag UE 4g UME? 4 HO gy 
( 
( 


1=e 
yx az) *t, *textyetg xt) =e 
y*xax*z) xt, *te =t tg * ty 

So, we have tytg ~ tytgtg. 

The last relation is: 

(z*t)* =e 

(z*t,)4 =e sincet~ ty 

zat? «1? eth et =e 

z+ «tz xt, *t3*t) =e 

z+ «tz xt, = ty «tg 


So, we have t3t; ~ tyts. 
Constructing the Cayley Diagram: 


NeN : 

We will use this definition of a double coset NwN = {n € N|Nw"}. 

We consider our first double coset NeN = {n € N|Nen}={Ne}={N} which we denote 
by [*]. Our control group N is transitive on {1,2,3,4,5,6,7,8}, so ier single orbit 


{1,2,3,4,5,6,7,8}. The number of right cosets in [*] is equal to eos So, we 


have one single double coset in a circle [*]._ We take a representative from the orbit 
and determine to which double coset it belongs. Therefore, we get a new double coset 
NtyN. 
Nt,N: 
We consider the double coset NwN, where w is a word of length one. Nt;N = {n € 
N|Ntin} ={Nt1, Nto, Nt3, Nts, Nts, Nts, Nt7, Ntg}. The coset stabilizer is N“), and 


the coset stabilizer of Nt; is equal to the point stabilizer N!. 


124 


NY = {n € N|Nt? = t1} > < (2,5)(6,8) >. 

We compute that ayy =8 single cosets in [1]. Now, the orbits of N on 
{1,2,3,4,5,6,7,8} are {1}, {3}, {4}, {7}, {2,5}, and {6,8}. We take a representative 
from each orbit and determine to which double coset belong. 

We observe that Ntit;=Nt?=N € [*], so it goes to the double coset [*] since t7=e. 
Ntit3=Nt,t3 € [13], so this is a new double coset, which will extend the Cayley dia- 
gram from [1] to [13]. Ntita=Nti © [1], so one symmetric generator loops back into 
[1]. Ntit7=Nt, © [1], so one symmetric generator loops back into [1]. Ntita=Ntite € 
[12]. This is a new double coset, which will extend the Cayley diagram from [1] to [12]. 
Since there is two elements in this orbit {2,5}, there is two t; that extend from [1] to 
[12]. Ntitg=Ntitg € [16]. This is a new double coset, which will extend the Cayley 
diagram from [1] to [16]. Since there is two elements in this orbit {6,8}, there is two t; 
that extend from [1] to [16]. 

Nt to2N : 

We have a new double coset which is called by [12]. We use this definition Ntjtg2N = 
{n € N|Ntiton}. The coset stabilizer of Ntit2N is given by N(@2) — {n € N|Nttt = 
tytg} > <e, (1, 2)(3,6)(4,5)(7, 8) >. 

When we conjugate t,t 2 by all elements of N, we have these cosets which have equal 
name 12 ~ 21. Since |N!?)|=2 then the number of single cosets in [12] is Wie 
single coset in [12]. Now, we can see the orbits of N@?) on {1, 2,3, 4,5, 6, 7,8} are {1,2}, 
{3,6}, {4,5}, and {7,8}. We take a representative from each orbit and determine which 
are belong. We notice that Ntiteata=Nt, € [1], so two elements send from [12] to [1]. 
Ntjtgt3=Ntytat3 € [123], so it is a new double coset. Ntitots=Ntite € [12], so two 
symmetric generators loop back into [12]. Ntitat7=Ntite € [16], so two symmetric gen- 
erators send from the double coset [12] to [16]. 

Ntit3N : 

We have a new double coset which is denoted by [13]. Ntit3N = {n € N|Ntitgn} 
and the coset stabilizer of Ntjt3N is given by N@3) = {n € N|Ntit® = tit3} > 
< (2,5)(6, 8)(1,3)(2,6)(4,7)(5,8) >. Since |N@%)|=8 then the number of single cosets 
in [13] is Nas) 8 single coset in [13]. Now, we can see the orbits of N(@%) on 
{1,2,3,4,5,6,7,8} are {1,3,4,7}, and {2,5,6,8}. We take a representative from each 
orbit and determine which are belong. We notice that Nt ts3tz=Nt, € [1], so 4 sym- 
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metric generators send from the double coset [13] to [1]. Ntit3tz=Ntit3t2 € [132], so it 
is a new double coset. 

NtitgN: 

We label the fifth double coset [16] and compute the coset stabilizer N“®. The coset 
stabilizer of Nt itgN is given by NUS) — {n € N|Ntit® = tits} > < e >. Since 
|N%)|—1 then the number of single cosets in [16] is aay 7 n18 single coset in [16]. 
Now, we can see the orbits of N@® on {1,2,3,4,5,6,7,8} are {1}, {2}, {3}, {4}, 
{5}, {6}, {7}, and {8}. We take a representative from each orbit and determine 
which are belong. We observe that Ntiteti=Ntiteti € [161], so this is new double 
coset. Ntitgtz=Ntitets € [123]. Ntitgts=Ntitste € [132]. Ntitgta=Ntitg © [16]. 
Ntytgts=Ntit2 € [12]. Ntit6ts=Nti € [1]. Ntit6tr=Ntits € [16]. Ntit6ts=Ntite € 
[16]. 

Nt tat3N: 

Now, we label the new double coset [123] and compute the coset stabilizer N(?%), 
The coset stabilizer of Ntitat3N is given by N(23) — {n € N|Ntytot} = titet3} > < 
(1, 2)(3, 6)(4, 5)(7, 8), (1, 7)(2, 8)(3, 4)(5, 6) >. When we conjugate titat3 by all elements 
of N, we could investigate that these cosets have equal name 123 ~ 216 ~ 786 ~ 875. 
Since | N“?3)|=4 then the number of single cosets in [123] is wana single coset 
in [123]. Now, the orbits of N“9) on {1,2,3,4,5,6, 7,8} are {1,2,7,8}, and {3,6, 4,5}. 
We take a representative from each orbit and determine which are belong. We could 
see that Ntytgt3tj=Ntitg € [16]. Ntytotstz=Ntyt € [12]. 

Nt t3t2N: 

We label the new double coset [132] and calculate the coset stabilizer N82), The 
coset stabilizer of Nt,t3t2N is given by N(@32) = {n € N|Ntyt3t? = titgte} > < 
(1, 3) (2, 6)(4, 7) (5, 8), (1, 4)(3, 7) >. Also, we find that these cosets 132 ~ 316 ~ 472 ~ 
746 have equal name after we conjugate Nt t3t2 by all elements of N. Since |.N (182) |—4 
then the number of single cosets in [132] is yaaa single coset in [132]. Now, 
the orbits of N“82) on {1,2,3,4,5,6,7,8} are {2,6}, {5,8}, and {1,3,4,7}. We take 
a representative from each orbit and determine which are belong. We could see that 
Ntytgtote=Ntyts € [13]. Ntitstots=Nttgty € [132]. Ntit3toti=Ntite € [16]. 


Nt tgt N: 
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We label the last double coset [161] and calculate the coset stabilizer N@®), The 
coset stabilizer of Nt,tgtiN is given by N61) — {n € N|Ntitet? = titeti} > < 


(1, 2)(3, 6)(4, 5)(7, 8), (1, 3)(2,6)(4, 7)(5,8) >. Since |N@® |=8 then the number of 
IN| 
|N G61) | =e 
Now, the orbits of N°) on {1,2,3,4,5,6,7,8} are {1,2,3,4,5,6,7,8}. We take a rep- 


single cosets in [161] is =2 single coset in [161]. 


resentative from the orbit and determine which is belongs. So, we take 1 from the orbit 
{1,2,3,4,5,6,7,8}. Ntitetiti=Ntite € [16], so 8 symmetric generators go to [16]. 
Finally , we could build our Cayley diagram. 

LN] [te col oe BM Se Ne ogee NMI = 5g, EN 


|N (| * Twee)] |NG3)| |N (6) | |.N (23) |.N (32) | "| N(161)| 
IG) < (14+8+84+24+4164+4+4+2) x 16 


IG| < (45 x 16) < 720 


IG) < (\N|4 ) x | 


Figure 8.4: Cayley Graph of Sg over (2 x 4) : 2 
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8.6 Double Coset Enumeration of 2°: S3 x S3 over S3 x 53 


Consider the group (Te RTT pg ~ 2 : 93 x Ss, 
where x ~ (1, 2,9)(3,4,5)(6,7,8), y ~ (3,6)(4, 7)(5,8), 2 ~ (1, 2)(4,5)(7,8), and w ~ 
(1, 4, 7)(2, 5, 8)(3, 6, 9). 
First, we are going to expand our relations. 
The first relation is 

(x *w)*t)* = 

(x * w)*t,)4 =e since t ~ ty 
yn gre” 5 gr” 4 Oa 
x*w)**t, *tg*ts *t, =e 
x*w)**t, *tg =t, *ts 
So, we have titg ~ tyts. 
The second relation is 
((z*w)*t)® =e 
((z* w) *t1)® =e since t~ ty 
(z*w)® « trey? * peorwy" * gn * as * ee «tj =e 
(z* w)® «tg * tg * to *t7 * ts *t1 =e 

(z * w)® «tg * ty * to = ty * ty * ty 
So, we have tgt4tg ~ tytstz. 
The third relation is 
((xxy)#t)! =e 

((a * y) *t,)* =e since t~ ty 
(xy) * «or or” x tor) tee 
(2 * w)* * «tor «tg xtg*t, =e 

(x * w)* * (3, 6)(4, 7)(5, 8) * to = ty * te. 
So, we have N(3,6)(4, 7) (5, 8)tg = Ntite. 
The last relation is 
((axyxwt)xt)=e 


((xxy*w ')*t1)® =e since t~ ty 


(x eye w-1)6 o pone) " poy st xr) tory")? r joe”) pee 


tg * tg *t7*tg *tg*xty =e 
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So, we have Ntgtot7 = Ntytgto. 

First, NeN = {n € N|Nen}={Ne}={N} which we denote by [*]. Our control group 
N is transitive on {1,2,3,4,5,6,7,8,9} so, it has a single orbit {1,2,3,4,5,6,7,8,9}. 
The number of right cosets in |*] is equal to Waa So, we have one single double 
coset in a circle [*]. Now, we right multiply our coset representative N by ¢; and find 
to which double coset Nt; belongs. Therefore, we get a new double coset Nt, N. 

Next, we consider Nt, be the coset representative of the new double coset Nt,N. 
NtiN = {n € N|Ntin} ={Nt1, Nto, Nt3, Nts, Nts, Nte, Nt7, Nts, Ntg}. The coset 
stabilizer is N“), and the coset stabilizer of Nt, is equal to the point stabilizer N!. 
NY = {n € N|Nt® = t)} > <e >. We compute that way 479 single cosets in 
[lls 

Now, the orbits of N@ on {1,2,3,4,5,6,7,8,9} are {1}, {2,9}, {4,7}, and{3, 6, 5, 8}. 
We take a representative from each orbit and determine to which double coset be- 
longs. We observe that Nt;t;=Nt?7=N € [*], so it goes to the double coset [*] since 
i2=e. Ntitg=Ntit4 €[14], so this is a new double coset, 4 symmetric generators ex- 
tend from [1] to the new double coset [14]. Ntit3=Ntit3 €[13], so this is a new double 
coset, 4 symmetric generators extend from [1] to the new double coset [13]. Now, we 
have a new double coset which is called by [14]. We use this definition Nt,t4N = {n € 
N|Ntitan}. The coset stabilizer of Nt,t4N is given by NO@4) = {n € N|Nt1t? = tits} > 
< (2,9)(3, 5)(6, 8), (3, 6)(4,7)(5,8) >. Since |N(@)|=4 then the number of single cosets 
in [14] is Wena 73 single coset in [14]. The orbits of N“4) on {1, 2,3, 4,5, 6, 7,8, 9} 
are {1}, {2,9}, {4,7}, and{3,6,5,8}. Now, we choose a representative from each orbit. 
Ntytati=Ntytat, € [141], so this is a new double coset, one symmetric generators ex- 
tends from [1] to the new double coset [141]. Ntitatgz=Nt, €[1], so 2 symmetric gen- 
erators go from [14] to [1]. Ntitat4=Nt, €[1], so 2 symmetric generators extend from 
[14] to [1]. Ntytatg=Ntit3t, €[1], so 4 symmetric generators extend from [14] to the 
new double coset [131]. Now, we consider Nttyt;N. Ntitat;N = {n € N|Ntytatin}. 
The coset stabilizer of Nt,t4t;N is given by N@4) = {n € N|Ntitat? = titati} > 
< (2,9)(3,5)(6, 8), (1,2, 9)(3, 4, 5)(6, 7,8), (1, 2)(4,5)(7,8) >. Since |N“@4)|=36 then 
the number of single cosets in [141] is watny ~367! single coset in [141]. The or- 
bit of N@4) on {1,2,3,4,5,6, 7,8, 9} is {1,2,3,4,5,6,7,8,9}. We pick a representative 


from the orbit, we select t;, and determine to which double coset Nt t4t it, belongs. 
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Therefore, Ntitgtit; = Ntitge = Ntyt4 € [14], so 9 symmetric generators go from 
[141] to [14]. Now, we have a new double coset which is called by [13]. We use this 
definition Ntitz3N = {n € N|Ntitgn}. The coset stabilizer of Ntit3N is given by 
N(3) = {n € N|Ntit8 = tits} > < (1,5,6)(2,3,7)(4,8, 9), (2, 9)(3, 8)(4, 7)(5, 6) >. 
Since |N(9)|=6 then the number of single cosets in [13] is ayaa? single coset in 
[13]. The orbits of N@®) on {1,2,3,4,5,6,7,8,9} are {1,5,6}, and{2,3,9,4,7,8}. We 
take a representative from the orbit, so we select t3, and t; and determine to which 
double coset Nt it3t3 and Ntit3t; belongs. Therefore, Ntitstz3 = Ntie = Nt, € [1], so 6 
symmetric generators are going to the double coset [1]. Ntitgt, = Ntit3t, € [131] this 
is new double coset denoted by [131]. Thus, 3 symmetric generators are going to the 
new double coset [131]. 

We consider Ntits3tiN. NtitstiN = {n € N|Ntitstin}. The coset stabilizer of 
Ntit3t,N is given by N@3) = {n € N|Ntit3t? = titsti} > 

< (1,3, 8)(2, 4,6) (5, 7,9), (2, 9)(3, 8)(4, 7)(5,6) >. Since |N@8)|=6 then the number of 
es single coset in [131]. The orbits of N@?) on 
{1,2,3,4,5,6,7,8,9} are {1,3,8}, and{2,4,9,6,7,5}. We take a representative from 


single cosets in [131] is 


the orbit, so we select t2, and t; and determine to which double coset Nt t3t,t; and 
Ntytgtit2 belongs. Nt t3tit; = Ntitge = Ntit3 € [13], so 3 symmetric generators are 
going to the double coset [13]. Nt tgtit2 = Ntit4 € [14]. Thus, 6 symmetric generators 
send from [131] to the double coset [14]. 

Finally , we could build our Cayley diagram. 

EL ET Dg NT LT 


|N | |N(4)| |N(G3)| | N41) | |N(31)| 
IG] <(1+9+9+6+1+6) x 36 


IG| < (32 x 36) < 1152. 


IG] < (IN| + ) x |N| 
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Figure 8.5: Cayley Graph of 2° : $3 x $3 over $3 x 93 


8.7 Double Coset Enumeration of 3° : S, x Cy over $3 x 93 


We factor our group G = Group < 2, y, z,w, t|x®, y?, 27, w?, cl *xy*axy, (cob 
z)*, (y*z)?, (x, w), (y*w*)? 
y*xw')«t)* > by (w*t)3, ((x * y) * t)®, and ((x4* y* w!) * t)4. 
Note, « ~ (1, 2,9)(3, 4, 5)(6, 7,8), y ~ (3,6)(4, 7)(5,8), z ~ (1,2)(4,5)(7,8), and w ~ 
(1, 4, 7)(2, 5, 8)(3, 6, 9). 


exw he zxw,t?, (ty), (t, 2% 2), (wet), (wey) *t)®, ((e+ 


it = 16 = 36 this means the sum of 


Now, we compute the number of single cosets, so 
all single cosets should equal 36 in our Caylay diagram. We will now check the number 


of double cosets of our group by using Magma. 


#DoubleCosets (G, sub<G|x,y,Z,w>, Sub<G|x,Yy,Z,W>) ; 
5 
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This indicates that our Cayley diagram has 5 circles. 

Now, we will begin to construct our Cayley diagram. We will start with double coset 
NeN, where ¢ is the word of length zero denote by [*]. NeN = {n € N|Nen}={Ne}={N} 
which we denote by [*]. Our control group N is transitive on {1,2,3,4,5,6,7,8,9} so, 


it has a single orbit {1,2,3,4,5,6,7,8,9}. The number of right cosets in |*] is equal to 
|N| 36 
|N| 36 
our coset representative N by t; and find to which double coset Nt; belongs. Therefore, 


=1. So, we have one single double coset in a circle [*]. Now, we right multiply 


we get a new double coset Nii N. 

Next, we are a new double coset which is labeled by [1]. Nti:N = {n € N|Ntin} 
={Nt,, Nto, Nt3, Nts, Nts, Nts, Nt7, Ntg, Ntg}. The coset stabilizer is N“), and the 
coset stabilizer of Nt; is equal to the point stabilizer N es 

N® = {n € N|Nt? = t1} > <e >. We determine that way 77? single cosets 
in [1]. The orbits of N® on {1,2,3,4,5,6,7,8,9} are {1}, {2,9}, {4, 7}, and{3, 6, 5, 8}. 
We pick a representative from each orbit and determine to which double coset belongs. 
We see that Ntiti=Nt7=N € [*], so it goes to the double coset [*] since t?7=e. 
Ntitg=Ntit2 €[12]. This is a new double coset, so 2 symmetric generators extend from 
[1] to the new double coset [12]. Ntit4=Nt, €[1], so 2 symmetric generators loop back 
into [1]. Ntitz €[13]. This is a new double coset, so 4 symmetric generators extend from 
[1] to the new double coset [13]. Now, we have a new double coset which is called by [12]. 
We use this definition NtjtzgN = {n € N|Ntiton}. The coset stabilizer of Ntit2N is 
given by N(?) = {n € N|Nt1t® = tyt2} > < (3,6)(4, 7)(5, 8), (1, 2, 9)(3, 4, 5)(6, 7,8) >. 
Since |N(?)|=6 then the number of single cosets in [12] is aye? single coset in 
[12]. The orbits of N“?) on {1,2,3,4,5,6,7,8,9} are {1,2,9}, and{3,6,4,7,5,8}. We 
take a representative from each orbit, so we select tg, and tz; and determine to which 
double coset Ntitgt2 and Ntitgtz belongs. Therefore, Ntitgt2 = Ntie = Nt, € [1], so 3 
symmetric generators are going to the double coset [1]. Ntitgt3 = Ntit3 € [13]. Thus, 
6 symmetric generators are going to the new double coset [13]. We have a new double 
coset which is called by [13]. Ntjt3N = {n € N|Ntitg3n}. The coset stabilizer of Ntit3N 
is given by N(3) = {n € N|Ntyt® = tyt3} > oe 3)(5,9)(6,8) >. Since |NG@3)|=2 


then the number of single cosets in [13] is Iwas; 28 single coset in [13]. The or- 


bits of NGS) on {1,2,3,4,5,6,7,8,9} are {7}, {1,4}, {2,3}, {5, 9}and{6,8}. We take a 
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representative from each orbit, and determine to which double coset belongs. Therefore, 
Ntit3t7 = Ntit3t7 € [137] this is a new double coset. Ntit3t; = Ntit3 € [13]. Thus, 2 
symmetric generators loop back into the double coset [13]. Ntitgt3 = Ntje = Nt, € [1] 
since t? = e, so 2 symmetric generators send to the double coset [1]. Ntit3ts = Ntits 
€ [13], so 2 symmetric generators loop back into [13]. Ntit3ts = Ntite € [12], so 2 
symmetric generators send to [12]. We have a new double coset which is called by [137]. 
Ntit3t7N = {n € N|Ntytgt7n}. The coset stabilizer of Nt,t3t7N is given by N(87) = 
{n € N|Ntitst® = tytst7} > < (1,2,9)(3,4,5)(6,7, 8) (14,92, 5,8)(8,6,9) >. Since 


(137) | ; ‘ : 05 es : 
|N |=18 then the number of single cosets in [137] is Nas i3 2 single coset in 


[137]. The orbit of N@8” on {1,2,3,4,5,6, 7, 8,9} is {1,2,4,9,5,7,3,8,6}. We take a 
representative from the orbit, and determine to which double coset belongs. Therefore, 
Ntit3t7t7 = Ntit3 € [13], so 9 symmetric generators are going to the double coset [13]. 


Finally , we could create our Cayley diagram. 
LN LN] LN] [N| 
< 
IG| — (|| |NQ)| |N(2)| |N(3)| |.N (37) | 
IG| < (1+9+6+18+2) x 36 


IG| < (36 x 36) < 1296. 


)x |N| 


Figure 8.6: Cayley Graph of 3° : S4 x C2 over $3 x 93 
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Chapter 9 


Double Coset Enumeration over a 


Maximal Subgroup 


Before we will start to find the double coset enumeration over maximal sub- 
group for M1; over Ss, we have to know why we need to find the coset enumeration over 
maximal subgroup. Typically, double coset enumeration is performed over the control N 
as the previous examples. At the time this process can be very complicated and boring. 
As a result, to make this process is a much easier process, we can achieve the same what 
we want by doing the process of double coset enumeration over a maximal subgroup of 
our progenitor. Therefore, to create the double coset enumeration of M over N, we will 


take N < M <G and accomplish the single coset enumeration of G = UM t.sN : 


9.1 Double Coset Enumeration of |; over Maximal Sub- 
group S55 


Consider the group Gap tee where N =5: 4. A symmetric presen- 
tation of G is G=Group < 2, y,t|z°, yt, y*a% «ya, t,t =, (y* (t°))3, (yx (t2°))® >. 
When we computed how many double coset of our group over N , so we get 25 double 
coset of M,, over N. Also, we could fulfill from that, we have a suitable maximal sub- 
group in our case that gives opartanity to apply double coset enumeration over M. First 


of all, we ask Magma for maximal subgroups of M as follows: 
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> M:=MaximalSubgroups (Gl); 
> M; 
Conjugacy classes of subgroups 


[1] Order 48 Length 165 

Permutation group acting on a set of cardinality 396 
Order = 48 = 2°4 x 3 
[2] Order 120 Length 66 

Permutation group acting on a set of cardinality 396 
Order = 120 = 2°3 * 3 * 5 
[3] Order 660 Length 12 
Permutation group acting on a set of 
Order = 660 = 2°2 * 3 * 5 *« 11 
[4 Order 144 Length 55 

Permutation group acting on a set of cardinality 396 
Order = 144 = 2°74 * 372 
[5] Order 720 Length 11 
Permutation group acting on a set of cardinality 396 
Order = 720 = 2°74 * 3°2 x 5 


cardinality 396 


Now, we ask Magma to find how many suitable candidates which are divisible by N. 


>for iin [1..5] do #M[i] ‘subgroup; end for; 
48 
120 
660 
144 
720 


Then, we will conjugate and determine M[2]‘subgroup of order 120 is the maximal 


subgroup which contains N. 


> D:=Conjugates (G1,M[2] ‘subgroup) ; 

> DD:=Setseq(D); 

> for iin [1..#DD] do if f(x) in DD[i] and f(y) in DD[i] 
then i;end if; end for; 

61 

> for g in DD[61] do if Order(g) eq 2 and 
sub<DD[61]|f(x),f(y),g> eq DD[61] then g@rho; 

end if; end for; 
g:=WordGroup (G1); 
rho:=InverseWordMap (G1) 


(G1); 
g2:=function w9 := g.3 * g.1; wl0 := w9 * g.2; 
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wl8 := wl0 * g.2; w3 := g.3°-1; wl9 := wl8x* w3; 
return wl9;end function; 

> g2(G); 

Cah ROY 2 ROO ST 

> H:=sub<G|x,y,t * xX * y°2 * t°-1>; 

> #H; 

120 

> #DoubleCosets (G, sub<G|x,y>,H) ; 

7 


f, Gl, k:=CosetAction(G, sub<G|x,y>); 
CompositionFactors (f(H)); 


Cyclic (2) 


Alternating (5) 


rP— *—AVV 


Now, we can begin our process to find our double coset of My, over M =< f(x), f(y), f(t* 
x * y2 *t~1) > which is isomorphic to Ss. 
We need to find the total number of unique cosets of M in G. This is the index of G in 


M. The index will be the order of G divided by the order of M. 
|G| 7920 


IMI 120 single cosets and we have 7 Double cosets. 


9.1.1 Construction Cayley Graph 


Circle|*]: First, we look for the first circle which is celled by [*] of our Cay- 
ley diagram. We note that our double coset definition changes to we have MwN = 
{n € N|Mw”}. Thus, our first double coset we have, MeN = {n € N|Me"} = {e € 
N|Me} = {M}. The number of right cosets in [*] is equal to 1, where |G] = 7920 ,and 
|N| = 20. Since N is transitive on 
{1,2,3,4,5,6,7,8,9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 19, 20, 

21, 22, 23, 24, 25, 26, 27, 28, 29, 30, 31, 32, 33, 34, 35, 36, 37, 38, 39, 40}, so N has two orbits 
which are {9, 4, 17, 12, 20, 3, 25, 28, 11, 36, 19, 35, 2, 33, 27, 10, 18, 34, 26}, and 

{5, 13, 8, 21, 16, 24, 7, 29, 32, 15, 40, 23, 39, 6, 37, 31, 14, 22, 38, 30}. 

Now, we will pick element from each orbit, so we take the representative 1 of the orbit 


{9, 4, 17, 12, 20, 3, 25, 28, 11, 36, 19, 35, 2, 33, 27, 10, 18, 34, 26}, and the representative 5 of 
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the orbit {5, 13, 8, 21, 16, 24, 7, 29, 32, 15, 40, 23, 39, 6, 37, 31, 14, 22, 38, 30}. 

Therefore, we will have two new double cosets which are Mt; N and Mt5N. 

Circle/1]: We get a new double coset Mt, N, so we have the second circle which is called 
by [1]. We note that Mt,N = {n € N|Mt?}. Now we consider the coset stabilizer MM, 
which is equal to the point stabilizer M!. 

MY = {e, (1, 19) (2, 12)(3, 25) (4, 34)(5, 23) (6, 16)(7, 29)(8, 38) (9, 27) (10, 20) (11, 33) (13, 31) 
(14, 24)(15, 37) (17, 35) (18, 28) (21, 39) (22, 32) (26, 36) (30, 40)}, then the number of single 
cosets of Mt,N is mayan) a single coset in [1]. Now, we are looking at the 
generator MY, 

So, we can figure out the orbits on {1, 2,3, 4,5, 6, 7,8,9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 
19, 20, 21, 22, 23, 24, 25, 26, 27, 28, 29, 30, 31, 32, 33, 34, 35, 36, 37, 38, 39, 40} are 
{1,19},42, 12), 1{3, 25), 14.34), 

{5,23}, {6,16}, {7, 29}, {8, 38}, 

{9 27,410, 20), {11,33),113, 31%, 

{14, 24}, {15, 37}, {17, 35}, {18, 28}, 

{21, 39}, {22, 32}, {26, 36}, {30, 40} 

Next, we will take a representative from each orbit. Then, we will determine 

{Mtyt1, Mtitie, Mtits, Mtita, Mtits, Mtite, Mtit7, Mtits, Mtity, Mtitio, Mtiti, 
Mit 3, Mtyty4, Mtyt5, Mtyti7, Mtitys, Mtyto1, Mtyte2, Mtyt2g, Mt1t30} which double 
coset belong. As a result, eM/t,t,, Mt, ts, Mtyty, Mt ty, Mtyti5, Mtit17 belong to the 
double coset [5], so the double coset [1] sends 12 elements to [5] since each orbit contains 
two elements. 

eMtyt12 is new double coset. Also, since Mtyt 1g is equal Mt ,t22, so we will consider 
them as one new double coset which we will denote by [112]. Thus, the double coset [1] 
sends 4 symmetric generators to [112] , since {Mt te, Mtiti2}, and {Mtyte2, Mtit32} 
contain two elements. Note, we could know that Mtyt19 is equal Mt,to2 by using Magma 
code as follows: 

for g in IM do for h in IN do if ts[1]*ts[12] eq 

gx (ts[l]*ts[22])“h then "true"; break; 


end if; end for; end for; 
true 
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eMtits, Mtyto, Mtyt11, Mtiti3 are back to [1], so 8 elements will loop back into the 
double coset [1]. 

eMt,te is a new double coset which is called [16]. Also, since Mtitg is equal Mtytyo, 
so we will consider them as one new double coset which we will denote by [16]. Thus, the 
double coset [1] sends 4 symmetric generators to [16], since {Mtite, Mtitie}, and{ Mtitio, 
Mtyt29} contain two elements. 

for g in IM do for h in IN do if ts[l]*ts[6] eq 

gx (ts[l]*ts[10])“h then "true"; break; 


end if; end for; end for; 
true 


e Mt tg is a new double coset which is called [18]. Since Mtytg is equal Mtyti4, Mti tog, and 
Mtyt39, so we will consider them as one new double coset which we will denote by [18]. 
Thus, the double coset [1] sends 8 elements to [18]. 

eMt,tig is a new double coset which is called [118]. Then, the double coset [1] sends 2 
symmetric generators to [118]. 

eMt,t2; will go to the double coset M=[*] Then, the double coset [1] sends 2 symmetric 
generators to the double coset |*]. 

Circle [5] : Now taking a new double coset Mt;N, so we have the second circle which 
we call it by [5]. We note that MtsN = {n € N|Mt2}. Now we consider the coset 
stabilizer M), which is equal to the point stabilizer M°. 

M) = {e, (1, 27)(2,36)(3, 17)(4, 10) (5, 31)(6, 40)(7, 21)(8, 14) (9, 35) (11, 25) (12, 18)(13, 39) 
(15, 29) (16, 22) (19, 33) (20, 26) (23, 37) (24, 30) (28, 34) (32, 38)}, then the number of single 
cosets of Mt; N is yey yn a single coset in [5]. Now, we are looking at the genera- 
tor M). So, we can figure out the orbits on {1, 2,3, 4, 5, 6, 7, 8,9, 10, 11, 12, 13, 14, 15, 16, 
17,18, 19, 20, 21, 22, 23, 24, 25, 26, 27, 28, 29, 30, 31, 32, 33, 34, 35, 36, 37, 38, 39, 40} are 

{ 1; 27 4 2.36 4, {33.17 3, {4,105 

{5, 31 }, { 6, 40 }, {7, 21 }, { 8, 14}, 

19:30 bef Te 2b A 12 18 bt 13, Bok 

{ 15, 29 }, { 16, 22}, {19, 33 }, { 20, 26 }, 

{ 23, 37 }, {24, 30 }, { 28, 34}, { 32, 38 }. 

Now, we choose a representative from each orbit. 


If we select{Mtst1, Mtsto, Mtst3, Mtst4, Mtsts, Mtste, Mtst7, Mtsts, Mtsto, Mtstia, 
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Mts5t11, Mts5t13, Mtstig, Mtstis5, Mtsti9, Mtstoo, Mt5to3, Mtste4, Mtstog, Mtst32} belong. 
Therefore, we could know that. 

eMtsti, Mtsts, Mtst7, Mtstg, Mtstis, Mtsti9 belong to the double coset [1]. 

So, the double coset [5] sends 12 symmetric generators to [1] since each orbit contains 
two elements. 

eMtstz and Mtsti6 € the double coset [16]. 

So, the double coset [5] sends 4 symmetric generators to the double coset [16]. 

eMtst3, Mtsto,Mtsti3, and Mtst23 € the double coset [5]. 

So, 8 elements loop back into the double coset [5]. 

eMtst4 ,Mtsti2, Mtsteg, and Mtstz2 € the double coset [18]. 

So, the double coset [5] sends 8 symmetric generators to the double coset [18]. 

eMtste € the double coset [118]. 
So, the double coset [5] sends 2 symmetric generators to the double coset [118]. 
eMtsti1 € the double coset [*]. 
So, the double coset [5] sends 2 symmetric generators to the double coset [*]=M. 


eMtstoo and Mtst24 € the double coset [112]. 


So, the double coset [5] sends 4 symmetric generators to the double coset [112]. 
Circle [16] : Next, we continue the same our previous processes in the new dou- 


ble coset which is denote by [16]. We use the definition MtitsN = {n € N| Mt t@}. 


Now we consider the coset stabilizer M(®, which is equal to the point stabilizer M1°. 
so the coset stabilizer of Mtitg is given by: M@% = {n € N|M(t,tg)” = Mtytg} > < 
e, (1, 19)(2, 12)(3, 25) (4, 34) (5, 23) (6, 16)(7, 29)(8, 38) (9, 27) (10, 20) (11, 33) (13, 31) (14, 24) 
(15, 37) (17, 35) (18, 28) (21, 39) (22, 32) (26, 36)(30, 40) >. 

The number of single cosets in the double coset [16] is waaay) a single coset 
in [16]. Now, we are looking at the generator M“®), So, we can see the orbits on 
{1,2,3, 4, 5,6, 7,8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 19, 20, 

21, 22, 23, 24, 25, 26, 27, 28, 29, 30, 31, 32, 33, 34, 35, 36, 37, 38, 39, 40} are 

{1,19}, {2, 12}, {3, 25}, {4, 34}, 

{5, 23}, {6, 16}, {7, 29}, {8, 38}, 

195 27+, 410, 20}, 411,33}, 413,31\, 

{14, 24}, {15, 37}, {17, 35}, {18, 28}, 

{21, 39}, {22, 32}, {26, 36}, {30, 40} 
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Next, we will take a representative from each orbit.Then,we will determine 

{Mtiteti, Mtiteti2, Mtitet3, Mtitets, Mtitets, Mtitets, Mtitet7, Mtitets, Mtiteto, 
Mtytetio, Mtiteti, Mtitetis, Mtitetia, Mtitetis, Mtiteti7, Mtitetis, Mtitete:, Mtitetes, 
Mtyteta6, Mtitet3o}which double coset belong. 

As aresult, eMtitet1, Mtit3, Mtitets belong to the double coset [16], so 4 elements loop 
back into the double coset[16]. 

eMtitgt, and Mtyteti7 € the double coset [118]. 

So, the double coset [16] sends 4 elements to the double coset [118]. 

eMtytgts, Mtitets, Mtiteto, Mtitetio, Mtiteti1, Mtitetis, Mtitete1, Mtitetso belong to 
the double coset [18], the double coset [16] sends 16 elements to the double coset [18]. 
eMtitet7, Mtitetiz, Mtitetia, Mtitete2 belong to the double coset [112], the double coset 
[16] sends 8 elements to the double coset [112]. 

Circle[18]: The fifth circle which is represented by a new double coset MtigN. We 
note that MtigN = {n € N|Mt%,}. Now we consider the coset stabilizer M“®), which 


is equal to the point stabilizer M'°. 

M(8) = {e}, then the number of single cosets of MtigN is aan 7-2 a single 
. So, we can find the orbits on 
{1,2,3, 4, 5,6, 7,8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 19, 20, 

21, 22, 23, 24, 25, 26, 27, 28, 29, 30, 31, 32, 33, 34, 35, 36, 37, 38, 39, 40} are 

{1}, {2}, {3}, {4}, {5}, {6}, {7}, {8}, {9}, {10}, ...., {40}. Next, we will determinate ev- 
ery orbit which double coset is belong. Then, we found that by helping Magma. 


eMtitgt,, Mtytgtg, Mtytgti5, Mtitgti7, Mtitgtig, Mtytgte9, Mtytgtag, Mtitgt34 belong to 


coset in [18]. Now, we will see at the generator M(8) 


the double coset [112], so 8 symmetric generators extend from the double coset [18] to 
[112]. 

eMtitgto, Mtytgto1, Mtitgto7, Mtitgtso, Mtitstss, Mtitgtie, Mt tgts9, Mtytgtao belong to 
the double coset [16], so 8 symmetric generators extend from the double coset [18] to 
[16]. 

eMtytgts, Mtytgts, Mtitgts, Mtiteti1, Mtitstio, Mtytetia, Mtitstie, Mtitetis, Mtitgtes, 

Mtytgto9, Mtitgts1, Mtitgts5 € [18] , so 12 symmetric generators loop back into the 
double coset [18]. 

eMtitgts, Mtytgtes, Mtitgts3, Mtitgt3g € [1] , so 4 symmetric generators send from the 
double coset [18] to the double coset [1]. 
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eMtitgt7, Mtitgtio, Mtitgti3, Mtitgtes € [5], so 4 symmetric generators send from the 
double coset [18] to the double coset [5]. 

eMtitgto, Mtytgte., Mtitgte3, Mtytgt32 € [118], so 4 symmetric generators send from the 
double coset [18] to the double coset [118]. 

Circle{112]: The sixth double coset which labels by [112]. Mtiti2N = {n € N|M(titi2)n}. 


(2), so the coset stabilizer of Mtyty9 is 


Now, we will determine the coset stabilizer M 
given by: 

M4?) — {n € N|M(titi2)” = Mtiti2} > < e, (1, 11)(2, 28) (3, 33) (4, 18) (5, 15) (6, 32) 

(7, 37)(8, 22)(9, 19) (10, 36) (12, 26)(13, 23)(14, 40) (16, 30) (17, 27)(20, 34)(21, 31) (24, 38) 
(25, 35)(29, 39) >. 

e The number of single cosets in the double coset [112] is ay =7=10 a single coset 
in [112]. 

We can see that the orbits of M“!?) on {1, 2,3, 4,5, 6,7, 8,9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 
19, 20, 21, 22, 23, 24, 25, 26, 27, 28, 29, 30, 31, 32, 33, 34, 35, 36, 37, 38, 39, 40} are 

{1,11}, {2, 28}, {3,33}, {4, 18}, {5, 15}, 

{6, 32}, {7, 37}, {8, 22}, {9, 19}, {10, 36}, 

{12, 26}, {13, 23}, {14, 40}, {16, 30}, {17, 27}, 

{20, 34}, {21, 31}, {24, 38}, (25, 35}, {29, 39}. 


We now take the representative from each orbit and we see where it goes. Therefore, 


we could know that. 

eMty titi, Mtytieta, Mtitieti2, Mtitigt25 belong to the double coset [16]. 

So, the double coset [112] sends 8 elements to [16] since each orbit contains two elements. 
eMtytiote, Mtitiots, Mtitiot7, Mtitiots, Mtitiotia, Mtitiote:, Mtitiotes, Mtitioteg belong 
to the double coset [18]. 

So, the double coset [112] sends 16 symmetric generators to [18] since each orbit contains 
two elements. 

eMty tits, Mtyti2t29 belong to the double coset [118]. 

So, the double coset [112] sends 4 symmetric generators to [118] since each orbit contains 
two elements. 

eMtytiatg, Mtiti2t9 belong to the double coset [1]. 

So, the double coset [112] sends 4 symmetric generators to [1] since each orbit 


contains two elements. 
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eMtiti2t1g, Mtitieti7 belong to the double coset [5]. 

So, the double coset [112] sends 4 symmetric generators to [5] since each orbit contains 
two elements. 

eMtytiatio, Mtitietig € [112] So, 4 symmetric generators loop back into [112]. 
Circle{118]: The last double coset which labels by [118]. MtitigN = {n © N|M(titis)n}. 


Now, we will determine the coset stabilizer M(!8) 


, so the coset stabilizer of Mt,t 8 is 

given by: 

M8) — {n € N|M(titig)” = Mtitis} > < e, (1,34, 11, 20)(2, 19, 28, 9)(3, 12, 33, 26) 

(4, 25, 18, 35)(5, 38, 15, 24) (6, 23, 32, 13)(7, 16, 37, 30)(8, 29, 22, 39) (10, 27, 36, 17)(14, 31, 

40,21) >. 

e The number of single cosets in the double coset [118] is I a single coset 
jm@i8)| 4 

in [118]. 

We can see that the orbits of M8) on {1, 2,3, 4,5, 6,7, 8,9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 

19, 20, 21, 22, 23, 24, 25, 26, 27, 28, 29, 30, 31, 32, 33, 34, 35, 36, 37, 38, 39, 40} are 

{1, 34, 11, 20}, {2, 19, 28, 9}, {3, 12, 33, 26}, {4, 25, 18, 35}, 

{5, 38, 15, 24}, {6, 23, 32, 13}, {7, 16, 37, 30}, {8, 29, 22, 39}, 

{10, 27, 36, 17}, {14, 31, 40, 21}. 

We now take the representative from each orbit and we see where it goes. Therefore, 

we could know that. 

eMtitigti, Mtitigte, Mtitigts, Mtitigtio belong to the double coset [18]. 

So, the double coset [118] sends 16 symmetric generators to [18] since each orbit contains 

4 elements. 

eMtytigt3 belong to the double coset [5]. 

So, the double coset [118] sends 4 symmetric generators to the double coset [5] since 

each orbit contains 4 elements. 

eMtyt gts belong to the double coset [1]. 

So, the double coset [118] sends 4 symmetric generators to [1] since each orbit contains 

4 elements. 

eMtitigts, Mtytigti4 belong to the double coset [16]. 

So, the double coset [118] sends 8 symmetric generators to [16] since each orbit contains 

4 elements. 


eMtitigts, Mtitigt7 belong to the double coset [112]. 
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So, the double coset [118] sends 8 symmetric generators to [112] since each orbit contains 
4 elements. 

Finally, we could complete our Caylay diagram of M,,; over Maximal Subgroup 5’. 
|N| |N| Ne NT go END ne ENT 


uw@ * Iw@)* G9) 7 703) > ala, * jqrals) 
| | | | | | | | | | | | 
IG] < (1 +10 + 10+ 10+ 20+ 1045) x 120 


IG| < (\M|+ ) x 120 


IG| < (66 x 120) < 7920 


Figure 9.1: Cayley Graph of M1, over Maximal Subgroup S5 
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9.2 Double Coset Enumeration of U(3,5) over Maximal 


Subgroup A7 


We will apply manual double coset enumeration of U(3,5) over M & Av. 


5*6. 55 
(yxxr2«tU*2?))4, (ysear2et2)7 : 


Gee ay dey ele eee eye er iy ee ey) a 
t4, (yxx2«tYr?”))4, (yxa2xt?)7 >. Where the order of the group |G| & |U(3,5)| = 126000 
and |N = S5|=120. 


A symmetric presentation of G is 


Consider the group G = 
xxyxe 2) __ 


We now find a suitable maximal subgroup that contains N for performing the maximal 


double coset enumeration of U(3,5) over M and N. First, we have to find the maximal 


subgroup as follows: 
M:=MaximalSubgroups (G1); 

M; 

Conjugacy classes of subgroups 


[1] Order 240 Length 525 

Permutation group acting on a set of cardinality 1050 
Order = 240 = 2°4 *« 3 * 5 

[2] Order 1000 Length 126 

Permutation group acting on a set of cardinality 1050 
Order = 1000 = 2°73 *« 5°73 

[3 Order 720 Length 175 

Permutation group acting on a set of cardinality 1050 
Order = 720 = 2°74 * 3°2 x 5 

[4 Order 720 Length 175 

Permutation group acting on a set of cardinality 1050 
Order = 720 = 2°74 * 3°2 x 5 

[5] Order 720 Length 175 

Permutation group acting on a set of cardinality 1050 
Order = 720 = 2°74 * 3°2 x 5 

[6] Order 2520 Length 50 

Permutation group acting on a set of cardinality 1050 
Order = 2520 = 2°3 *« 3°2 * 5 x* 7 

[7 Order 2520 Length 50 

Permutation group acting on a set of cardinality 1050 
Order = 2520 = 2°3 *« 3°72 * 5 * 7 

[8] Order 2520 Length 50 

Permutation group acting on a set of cardinality 1050 


Order = 2520 = 273 * 3°2 *« 5 * 7 
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|M| 


To find all maximal subgroup of G by IN] In order to determine which subgroup 


contains N, we will use this following Magma code: 


C:=Conjugates (G1,M[8] ‘subgroup) ; 

CC:=Setseq(C); 

for iin [1..#CC] do if f(x) in CC[i] and f(y) in CC[i] then i; 
end if; end for; 

28 


So, we will use this M[8]’subgroup. In appendix, we can see how we could find the 
relation which will create M. 
Thus, our M ©& Az and its order is 2520. Also, we have 5 double cosets and 50 single 


cosets. 


M:=sub<G|x,y,t * x * t°-1>; 

#M; 

2520 

#DoubleCosets (G,M, sub<G|x,y>); 

5 

IM:=sub<Gl|/f(x),f(y),f(t * x * t*-1)>; 
CompositionFactors (IM); 

G 
Alternating (7) 


#G/#M; 

50 

Now, we can begin our method to find the double coset enumeration of U(3,5) over the 
maximal subgroup A7 as our previous example. 

The first double coset which is labeling by [*] in our Cayley diagram. We have that 
our double coset definition is MwN = {n € N|Mw"}.Thus, our first double coset we 
have, MeN = {n € N|Me”} = {e € N|Me} = {M}=[*]. 

The number of right cosets in [*] is equal to 1, where |G| = 126000, and |N| = 120 
Since N is transitive on {1,2,3,4,5,6,7,8,9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 19, 20, 

21, 22, 23,24}. So, N has one orbit which is 

{1,6,3, 11,5, 4, 12, 22, 2, 8,17, 20, 7, 10, 18, 19, 16, 9, 14, 23, 24, 21, 13, 15}. 

We now take element from the orbit, so we take the representative 1 of the orbit 


{1,6,3, 11,5, 4, 12, 22, 2, 8,17, 20, 7, 10, 18, 19, 16, 9, 14, 23, 24, 21, 13, 15} Therefore, we will 
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have one new double coset which is Mt,N. 

The second double coset which is labeling by [1] in our Cayley diagram. We note 
that Mt,N = {n € N|Mt"}. Now we consider the coset stabilizer M“, which is equal 
to the point stabilizer M1. 

M = fe, (2,21, 6, 16, 23)(3, 12, 22,5, 8)(4, 11, 14,9, 18)(10, 17, 20, 15, 24), 

(1,6, 16)(2, 11, 9)(3, 20, 5) (4, 13, 18)(7, 12, 22)(8, 17, 15)(10, 19, 24)(14, 23, 21)}. Then, the 
number of single cosets of Mt,N is aya a a single coset in [1]. 

Now, we are looking at the generator M(). 

So, we can see the orbits on{1, 2,3, 4,5,6,7,8,9, 10, 11, 12, 13, 14, 15, 16,17, 

18, 19, 20, 21, 22, 23, 24} are {1,6, 11,4, 2, 18, 16,9, 14, 23, 21, 13} and {3, 12, 20, 

17,22, 7,19, 10, 24, 8,5, 15}. 

Next, we will take a representative from each orbit. We could determine that. 

eMt,t; € [11] is the new double coset. 

So, the double coset [1] sends 12 symmetric generators to the new double coset [11]. 
eMtits € [*]. 

So, the double coset [1] sends 12 symmetric generators to the double coset [*]. 

The third double coset which is labeling by [11] in our Cayley diagram. We want to 
indicate that Mtit,N = {n € N|Mtyt,"} and the coset stabilizer M@)), which is equal 
to the point stabilizer M1'. 

MD = {e, (2, 16, 21, 23, 6)(3, 5, 12, 8, 22)(4, 9, 11, 18, 14)(10, 15, 17, 24, 20)}, then the num- 
ara =F 712 a single coset in [11]. 

Now, we can see the orbits on{1, 2,3, 4,5, 6,7, 8,9, 10, 11,12, 13, 14, 15, 16,17, 18, 19, 20, 
21, 22, 23, 24} are {1,13}, {7, 19}, {2, 6,4, 14, 18, 9, 11, 23, 16, 21},and {3, 22, 24, 17, 15, 20, 
10, 8,5, 12}. 


ber of single cosets of Mt tN is 


Next, we will take a representative from each orbit, so we will pick 13 from the orbit 
{1,13}, 7 from the orbit {7,19}, 2 from the orbit{2,6, 4, 14, 18,9, 11, 23, 16,21}, and 3 
from {3, 22, 24,17, 15, 20, 10,8,5,12}. Then, we can determine that. 

eMtytyt13 € [11]. 

So, 2 symmetric generators loop back into the double coset [11]. We could figure this 
out by the following Magma code: 


for g in IM do for h in IN do if ts[1]*ts[l]*«ts[13] 
eq gx(ts[1]*ts[1])7“h then "true"; break; 
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end if; end for; end for; 
true 


eMtitit7 € [11]. 
So, 2 symmetric generators go to the double coset [1]. 


for g in IM do for h in IN do if ts[1]*ts[1]«ts[7] 
eq gx(ts[1])*h then "true"; break; 

end if; end for; end for; 

true 


eMtt itz € [112] this is a new double coset. 

So, 10 symmetric generators send from the double coset [11] to the new double coset 
[112]. 

eMt,titz € [113] this is a new double coset. 

So, 10 symmetric generators send from the double coset [11] to the new double coset 
[113]. 

The forth double coset which is labeling by [112] in our Cayley diagram. We can 
see that MtititaN = {n © N|Mt,t,t$} and the coset stabilizer M12) which is equal 
to the point stabilizer M1!2. M(@1!2)={e, (1, 20)(2, 7)(3, 6)(4, 17)(5, 16)(8, 13)(9, 12) 
(10, 23) (11, 22)(14, 19)(15, 18)(21, 24)}, then the number of single cosets of Mt,tit2N is 
aga a8? a single coset in [112]. 

Now, we can see the orbits on{1, 2,3, 4,5, 6,7, 8,9, 10,11, 12, 13, 14, 15, 16,17, 18, 19, 20, 
21, 22,23, 24} are {1, 20,8, 13}, {2,7, 19, 14}, {3, 6, 4, 17}, {5, 16, 18, 15}, {9, 12, 10, 23}, 
{11, 22, 24,21}. We will pick a representative from each orbit, so we determine that. 
eMtytytot, € [11]. 

So, 4 symmetric generators send from the double coset [112] to the double coset [11]. 
for g in IM do for h in IN do if ts[1]*ts[l]*«ts[2]*ts[1] 

eq gx(ts[l]*ts[1])*h then "true"; 


break; end if; end for; end for; 
true 


eMtiti tote, Mtytytet3, Mtytitets, Mtititeto, and Mtytitaty, © [112]. 
So, 20 symmetric generators loop back into the double coset [112]. 
for g in IM do for h in IN do if ts[1]*ts[l]*ts[2]xts[2] 


eq gx(ts[l]«*ts[l]*ts[2])*h then "true"; 
break; end if; end for; end for; 
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for g in IM do for h in IN do if ts[1]*ts[l]*«ts[2]xts[3] 
eq gx(ts[l]«ts[l]*ts[2])*h then "true"; 
true 


The last double coset which is labeling by [113] in our Cayley diagram. We can see 
that Mtitit3N = {n € N|Mtyt,t}} and the coset stabilizer M18) which is equal to 
the point stabilizer M1’. 

M43) — {(1, 3) (2, 22)(4, 8)(5, 6)(7, 9) (10, 14) (11, 12)(13, 15) (16, 20) (17, 18)(19, 21) (23, 


24), (1, 20) (2, 7)(3, 6)(4, 17) (5, 16)(8, 13)(9, 12)(10, 23)(11, 22)(14, 19)(15, 18)(21, 24)}, 

N| 12 
| M13) | 24 
Now, the orbit on{1, 2, 3, 4, 5, 6,7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 19, 20, 21, 22, 23, 24} 


is {1,2,3,4,5,6, 7,8, 9, 10, 11, 12, 13, 14, 15, 16,17, 18, 19, 20, 21, 22, 23, 24}. 


then the number of single cosets of Mt,t1t3N is =5 a single coset in [113]. 


We will pick a representative from the orbit, so we determine that. 

eMtt t3t; € [11]. So, 24 symmetric generators send from the double coset [113] to the 
double coset [11]. 

for g in IM do for h in IN do if ts[1]*ts[l]*«ts[3]x«ts[1] 

eq gx(ts[l]*ts[1])7“h then "true"; break; 


end if; end for; end for; 
true 


Finally, we conclude that our Caylay diagram of U(3,5) over maximal subgroup A7. 


we, WWE INL 
\M(O| | M(11)| |M(112)| | M(113)| 
IG| < (1+2+12+4+30+5) x 2520 


IG| < (50 x 2520) < 126000. 


IG] < (|M|4 ) x 2520 
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[112] [113] 


Figure 9.2: Cayley Graph of U(3,5) over Maximal Subgroup A7 
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Appendix A 


MAGMA Code for Extension 
Types 


A.l G& 2°: PGL(2,7) 


G<w,X,Y,Z,t>:=Group<w, X,y,zZ,t|w2,x°2,y°4,2°2, (wxy°-1) 72,x*y~ 
—lxxxy, 

YO 2*Z,WkKXKWHX*Z,C°2, (t,w), (x*t) “8, (y*xt) “3, (x*we«t) 70, 
(wex*y*xt) “0, (wex*yxt) “7>; 

#G; 

£,G1,k:=CosetAction (G, sub<G|w,x,y,Z>); 

#k; 

N:=sSsub<G1|f(w),f(x),f(y),£(2z)>; 

CompositionFactors (Gl); 


NL:=NormalLattice(Gl); 

NL; 

for i in [1..#NL]do if IsAbelian(NL[i]) then i;end if;end for; 
NL[4]; 


Xf=(2;2,2 725-275-2925 224 

IsIsomorphic (NL[4],AbelianGroup (GrpPerm, (X))); 

FPGroup (NL[4]); 

S<w,X,y,Z,h,0,p,u, r>:=Group<w,x,Vy,Z,h,0,p,u,r| w°2,x°2,y°2,2°2, 
h*2,0°2,p°2,u°2,r°2, (w * X)72, (Ww * y)°2, (x * y)°2, (Ww * z)72, 

(xX * z)72, (y * z)°2,(w * h)72, 

(x * h)*2, (y* h)*2, (z * h) 72, (w * 0) 72, (x* 0)°2, (y * 0)°2, 


s,t:=IsIsomorphic(ss,NL[4]); 
Ss; 


H:=NL[4]; 
gq, ££:=quo<G1|NL[4]>; 
Gr 


FPGroup (q); 


H<a,b,c>:=Group<a,b,c|a°2,b°2,c°2, 


,ss,kk:=CosetAction(S, ence ais 


“2, (X * p)°2, 


(zZ * 0) 72, (h * 0) °2, (w * p) 

(y * p)*2, (z* p)*2, (h * p)*2, (0 * p)*2 
(y * u)*2, (z * u)*2, (h * u)*2, (0 * u)* 
(w * v)*2, (x* £)°2,(y * £) 72, 

(Zz * r)*2,(h * r)*2,(0 * r)*2, (px r) 
ff 


)>); 


(axb) *2 


“2, (u * fr) 


,(w ox u)* 


2,(p * u 


, (Cxb) 


beaxctrbeaxcxbearxckbexaxcraxbxcxarbecxaxb*«c>; 


ff,ss,kk:=CosetAction (H, sub<H|Id( 


s,t:=IsIsomorphic(q,ss); 
S; 
CompositionFactors (q); 
NL1:=NormalLattice(q); 
Tiss 

#PGL(2,7); 


EE:=q! (1, 2) (3, 4) (5, 6) (7, 
FF:=q! (1, 2) (5, 7) (6, 8); 
GG:=q!(2, 3) (4, 5) (6, 8); 
£6. (E23) )5 

fE(T[3]); 

fF (T[4]); 

fE(T[5]); 

fE(T[6]); 

f£(T[2]) eq EE; 

fE(T[3]) eq FF; 

f£F(T[4]) eq GG; 

gq eq sub<q|EE,FF,GG>; 
A:=G1!NL[4].1; 
B:=G1!NL[4] .2; 
C:=G1!NL[4].3; 

D:=G1!NL[4] .4; 
F:=Gl1!NL[4].5; 

H:=G1!NL[4] .6; 
P:=G1!NL[4].7; 
O:=G1!NL[4].8; 

V:=G1!NL[4] .9; 
J:=G1!T[2]; 

I:=G1!T[3]; 


H)>); 


ae mae 8 a AP 


2, ( 
)*2, 


Dy 


*3, (axc) “8 
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M:=G1!T[4]; 
FOr. tL; 
A*7ixB7 
Jji,kk; 
end if 
fori, 
A*ixB* 
Ji,kk; 
end if; end for; 


end for; 


Cy Roe. Se 


for i,j,k,1l,m,mm,ii,jj,kk in [1. 
A°i*xB* 3*C°k*xD*1*F*m*H > mm*P*ii*xO° jj*V°kk then i,j,k,1,m,mm,ii, 


33,kk; 
end if; end for; 


for i,j,k,1l,m,mm,ii,jj,kk in [1. 
A°i*B* 3*C°k*xD*1*F*m*H mm*P*ii*O°jj*V°kk then i,j,k,1,m,mm,ii, 


33,kk; 
end if; end for; 


for i,j,k,1l,m,mm,ii,jj,kk in [1. 
A°i*xB*3j*C°k*xD*1*F*m*H > mm*P*ii*«O°jj*V°kk then i,j,k,1,m,mm,ii, 


33,kk; 
end if; end for; 


for i,j,k,1l,m,mm,ii,jj,kk in [1. 
A°i*xB* j*C°kx*xD*1*F*m*H > mm*P*ii*O°jj*V°kk then i,j,k,1,m,mm,ii, 


33,kk; 
end if; end for; 


for i,j,k,1l,m,mm,ii,jj,kk in [1. 
A°i*B* 3*C°k*xD*1*F*m*H > mm*P*ii*xO° jj*V°kk then i,j,k,1,m,mm,ii, 


33,kk; 
end if; end for; 


for i,j,k,1l,m,mm,ii,jj,kk in [1. 
A°i*xB* j*C°k*xD*1*F*m*H > mm*eP*ii*O°jj*V°kk then i,j,k,1,m,mm,ii, 


33,kk; 
end if; end for; 


for i,j,k,1l,m,mm,ii,jj,kk in [1. 
A°i*xB* 3j*C°k*xD*1*F*m*H mm*eP*ii*O°jj*V°kk then i,j,k,1,m,mm,ii, 


33,kk; 
end if; end for; 


For ig); Kk; lympmm, 22; J 7kKk rm, Ps 
A°i*xB* j*C°k*xD*1*F*m*H mm*P*ii*xO°jj*V°kk then i,j,k,1,m,mm,ii, 


Jj,kk; 
end if; end for; 


for ayy j,k, 1, mypmmy 22, jo7kk. ano 1k. 
A°i*xB* 3*C°k*xD*1*F*m*H > mm*P*ii*«O°jj*V°kk then i,j,k,1,m,mm,ii, 


Jj,kk; 


;,k,1,m,mm,ii,j3,kk in [1. 


,k,1l,m,mm,ii,jj,kk in [1. 
*C°k*D*1*F°m*H *mm*xP*ii*tO07°7j*V°kk then i,j,k,1,m,mm,ii, 


-2] do if A°J eg 
}*C°k*xD* 1*F°m*H*mm«P*iixO°*jj*V°kk then i,j,k,1,m,mm,ii, 


-2] do if A°I eq 


-2] do if A°M eq 


-2] do if B°J eg 


-2] do if B°I eq 


-2] do if B°M eq 


-2] do if C°J eg 


-2) do if C*T eq 


-2] do if C°M eg 


-2] do if D°J eg 


-2] do if D°I eq 


151 


end if; end for; 

for i,j,k,1,m,mm,ii,jj,kk in [1. 
A°i*B* 3 

Ji,kk; 

end if; end for; 

for i,j,k,1,m,mm,ii,jj,kk in [1. 
A°i*B* 3 

Jj,kk; 

end if; end for; 


for i, j,k,1,m,mm,ii,jJj,kk in 


<2] 
*C°k*D*1*F°m*H *mm*xP*ii*tO07°7j*V°kk then i,3,k,1,m,mm,ii, 


2] 
*C°k*D*1*F°m*H *mm*xP*ii*tO077*V°kk then i,j,k,1,m,mm,ii, 


Paes 2a] 


do if D°M eq 


do if F°J eg 


do if F°I eq 


A°i*xB* 3j*C*°k*xD*1*F*m*H > mm*P*ii*O° jj*V°kk then i,j,k,1,m,mm,ii, 


33,kk; 
end if; end for; 
for i, j,k,1,m,mm,ii,jj,kk in 


[dese] 


do if F°M eq 


A°i*B* 3*C°k*xD*1*F*m*H mm*eP*ii*O°jj*V°kk then i,j,k,1,m,mm,ii, 


33,kk; 
end if; end for; 


for i, j,k,1,m,mm,ii,jj,kk in 


P52] 


do if H°J eg 


A°i*xB* 3j*C°k*xD*1*F*m*H > mm*eP*ii*«O°jj*V°kk then i,j,k,1,m,mm,ii, 


33,kk; 
end if; end for; 


for i, j,k,1,m,mm,ii,jj,kk in 


[ee 2i] 


do if H°I eq 


A°i*xB* 3j*C°k*xD*1*F*m*H > mm*P*ii*xO°jj*V°kk then i,j,k,1,m,mm,ii, 


33,kk; 
end if; end for; 


for i, j,k,1,m,mm,ii,jJj,kk in 


[ae 2] 


do if H°M eq 


A°i*B* 3*C°k*xD*1*F*m*H mm*P*ii*xO°jj*V°kk then i,j,k,1,m,mm,ii, 


33,kk; 
end if; end for; 
for i, j,k,1,m,mm,ii,jj,kk in 


[dias 2] 


do if P°J eg 


A°i*xB* j*C*°k*xD*1*F*m*H > mm*P*ii*O°jj*V°kk then i,j,k,1,m,mm,ii, 


33,kk; 
end if; end for; 
for i, j,k,1,m,mm,ii,jj,kk in 


[de 2] 


do if P°I eq 


A°i*B* 3*C°k*xD*1*F*m*H > mm*P*ii*O°jj*V°kk then i,j,k,1,m,mm,ii, 


33,kk; 
end if; end for; 
for i, j,k,1,m,mm,ii,jj,kk in 


[bi] 


do if P°M eq 


A°i*xB° 3j*C°k*xD*1*F*m*H > mm*P*ii*xO°jj*V°kk then i,j,k,1,m,mm,ii, 


Jj,kk; 
end if; end for; 


FOr ayy ,-k, 1, mypmmy 241, pakke. an 


[ee] 


do if O°J eg 


A°i*xB* 3*C°k*xD*1*F*m*H > mm*P*ii*«O°jj*V°kk then i,j,k,1,m,mm,ii, 


Jj,kk; 
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A 
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ax 


#H; 


#G 


d if; end for; 

vr i,j,k,1l,m,mm,ii,jj,kk in [1..2] do if O°I eq 
L*B°3*C*kKx*xD*1*F*m*H > mm*P“ii*xO°Jj*V°kk then i,j,k,1,m,mm,ii, 
,kk; 

d if; end for; 

vr i,j,k,1,m,mm,ii,jj,kk in [1..2] do if O°M eq 
L*B°3*C*k*D*1*F°m*H > mm*P*ii*O°Jj*V°kk then i,j,k,1,m,mm,ii, 
,kk; 


d if; end for; 

vr i,j,k,1,m,mm,ii,jj,kk in [1..2] do if V°U eq 
L*B°3*C*kK*xD*1*F°m*H > mm*P*ii*O°Jj*V°kk then i,j,k,1,m,mm,ii, 
,kk; 

d if; end for; 

vx i,j,k,1,m,mm,ii,jj,kk in [1..2] do if VWI eq 
L*B°3*C*k*D*1*F*m*H > mm*P*ii*O°Jj*V°kk then i,j,k,1,m,mm,ii, 
,kk; 

d if; end for; 

vr oi,j,k,1,m,mm,ii,jj,kk in [1..2] do if VM eg 
L*B*3*C*kKx*xD*1*F°m*H > mm*P*ii*O° Jj*Vokk then i,j,k,1,m,mm,ii, 
,kk; 


d if; end for; 
W,X,VY,Z,h,0,p,u,r,a,b,c>:=Group<w, X,y,Z,h,0O,p,u,xr,a,b,C| 
T 2a 2p y 2, 
2,h°2,0°2,p°2,u°2,r°2, (Ww * xX) 72, (Ww * y) 72, (Kk * y)72, 
* Z)°2,(% * z)72,(y * z)72, (w * h)*2, (x * h) 72, (y* h) 72, 
* h)*2, 
* O)°2, (K%* 0) 72, (y * 0)72,(z * 0) 72, (h_ * 0)°2, (w * p) 72, 
* p)*2, 
* p)°2,(z* p)°2,(h * p)*2, (0 * p) 2, (w * u)*2, (x * u) 2, 
* u)°2, 
* u)*2, 
* u)°2, (0 * u)*2,(p * u) 72, (w * r)*2, (x* v)72,(y * £)72, 
ee EY De 
EY 2 
* v)°2, (px xv) 72, (u*xr) °2,Ww a=wey,W b=w*y,wW C=W, X°a=Xxy, 
b=xX, X° C=X*Yy*Z, 
a=y,y b=y,y° C=Z,Z° a=y*z*u, Z b=y*zZ,Z° C=y, 
a=h,h°b=y+*+h,h* c=y*hx*oxu, 0° a=y*xh*xoxpeu, O b=xX*Ox*U, O° C=y*U, 
a=p,p b=p,p*c=y*h*xoxpsr, 
a=u,U  b=u, uu Cc=zZ*0, °° a=px*xr, Cr b=pxurer, r°c=y*z*r,a 2,D°2, 
2, (axb) “2, (cxb) 73, (axc) 78, beaxcxbeaxcxbxaxcebeaxceaxbx*xcx 


bxcxaxb«*c>; 


’ 


1; 
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f1,H1,k1:=CosetAction (H, sub<H|Id(H)>); 
s:=IsIsomorphic(Gl,H1);s; 


Ad? Ga (Ss 2) 


G<x,y,Z,w,h,t>:=Group<x,y,z,w,h,t|x°2,y°2,z°2,w 4,h°2, 
(y*z)°2, (xxw°-1)°*2, (y*w*-1)°2,z*w°-lx«zew, 

wo -2*eh,x*y*x*eyxw —-1l, xX*z*x*xzeh,t°2, (t,x), (y*xt) “6, (z*wxt) “3, 
(Z*x*t) 76, (y*x*t) 74, (y*x*z*t) “00>; 

#G; 

£,G1,k:=CosetAction (G, sub<G|x,y,Z,w,h>) ; 

#k; 
IN:=sub<G1|f(x),f(y),f£(z),£(w),f(h)>; 
NL:=NormalLattice (G1); 


47 

for i in [1..#NL]do if IsAbelian(NL[i]) then 
i;end if;end for; 

NL[4]; 

X3= [3,373,314 

IsIsomorphic (NL[4],AbelianGroup (GrpPerm, (X)))j; 


H:=NL[4]; 
gq, ££:=quo<G1|NL[4]>; 
Gr 


CompositionFactors (q); 
Center (G1); 
nl:=NormalLattice(q); 
nl; 
E:=DirectProduct (n1l[17],nl1[2]); 

IsIsomorphic(E,q); 

FPGroup (q) ; 

H<e, f,g,h,o0>:=Group<e,f,g,h,o|e°2,f£°2,g9°2,h°2,0°2, (exg) “2, 
(fxg) °2, 

(eehy* 2; (f * h)°2, (gi hy*2,(é¥ 0)" 2; (g-40) *2, 

ex fx e « £ « hh x o x hH*¥ Gg * O *« h * 0, (£ *O * £ xox h) 
“2>; 

ff,ss,kk:=CosetAction (H, sub<H|Id(H)>); 
s,t:=IsIsomorphic(q,ss)j; 

S; 

FPGroup(NL[4]); 
S<a,b,c,d>:=Group<a,b,c,d|a°3,b°3,c°3,d°3, (a,b), (a,c), (b,c), 
(a,d), (b,d), 

(c,d) >; 


ff,ss,kk:=CosetAction(S,sub<S|Id(S)>); 
s,t:=IsIsomorphic(ss,NL[4]); 


S; 

H:=NL[4]; 

gq, ££:=quo<G1|NL[4]>; 

ar 

EE:=q!(2, 4) (5, 6) (7, 11) (8, 10) (9, 12); 
FF:=q!(1, 2) (3, 4) (5, 7) (6, 9) (8, 12) (10, 11); 
GG:=q! (1, 3) (2, 4) (5, 6) (7, 9) (8, 10) (11, 12); 
DD:=q! (1, 3) (2, 4) (5, 8) (6, 10) (7, 12) (9, 11); 


KK:=q! (2, 5) (4, 6) (7, 11) (9, 12); 
T:=Transversal (G1,NL[4]); 
(T[2]) eq EE; 
(T[3]) eq FF; 
f£(T[4]) eq GG; 
(T[5]) eq DD; 
ffF(T[6]) eq KK; 
Generators (NL[4]); 
A:=G1!NL[4].1; 
B:=G1!NL[4 
:=G1!NL[ 
:=G1!NL 


2; 
mai 
4 


’ 


lA 
for i,j,k,l in [1..3] do if A*H eq A*ixB*4xC*ksD*1 


end if; end for; 

for i,j,k,l in [1..3] do if A°J eq A°i*B74«*«C°k*D*1 
3,k,1; 

end if; end for; 

for i,j,k,l in [1..3] do if A°I eq A*°i*B*4«*«C7k*D7*1 
3,k,1; 

end if; end for; 

for i,j,k,l in [1..3] do if A°M eq A7i*B°j*C*kxD*1 
j,k,1; 

end if; end for; 

for i,j,k,l in [1..3] do if A°O eq A°i*B74*«C°k*D7*1 
j,k,1; 

end if; end for; 

for i,j,k,l in [1..3] do if B°H eq A°i*B74j«C°k*eD7*1 
j,k,1; 


then 


then 


then 


then 


then 


then 
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end if; end for; 
for 1,3,k,1 in [1..3] do if B°J eq A°i*B°3*C”k«D* 1 then i, 


end if; end for; 
for i,j,k,l in [1..3] do if B°I eq A*°i*B*4j*C°k*D*1 then i, 


end if; end for; 
for i,j,k,l in [1..3] do if B°M eq A°i*B*4j*C°k*D*1 then i, 


end if; end for; 
for i,j,k,l in [1..3] do if B°O eq A°i*B*4j*C°k*D*1 then i, 


end if; end for; 
for i,j,k,l in [1..3] do if C°H eq A°i*B*4j«*«C°k*D°1 then i, 


end if; end for; 
for i,j,k,l in [1..3] do if C°J eq A°i*B*4j*C°k*D*1 then i, 


end if; end for; 
for 2,4, k,1. 2p [1x3] do Ti C leq A°i4B°J7*C* keD" 1 then 1, 


end if; end for; 
for i,j,k,l in [1..3] do if C°M eq A*°i*B*4j«*«C°k*D*1 then i, 


j,k,1; 

end if; end for; 

for i,j,k,l in [1..3] do if C°O eq A*7ixB°j*C°k*D°1 then i, 
j,k,1; 

end if; end for; 

for i,j,k,l in [1..3] do if D°H eq A*7ixB°j*C°k*D°1 then i, 
j,k,1l; end if; end for; 

for i,j,k,l in [1..3] do if D°J eq A*7ixB°j*C°k*D°1 then i, 
Jrkply 


end if; end for; 
for i,j,k,l in [1..3] do if D°I eq A°i*B*4j*C*k*D*1 then i, 


end if; end for; 

for i,j,k,l in [1..3] do if D°M eq A*7ixB°j*C°k*D°1 then i, 
j,k,1; 

end if; end for; 

for i,j,k,l in [1..3] do if D*O eg A*7i*B*j*C*k*D*1 then i, 
j,k,1; 

end if; end for; 
M<a,b,c,d,e,f,g,h,o>:=Group<a,b,c,d,e,f,g,h,0|a°3,b°3,c°3, 
dr 3% 


(a,b), (a,c), (b,c), (a, d), (6b, d), (c,d),e°2,£°2,9°2,h°2,0°2, 
(exg) “2, (£*g) *2, (exh) “2, ( 
( 


exfxexfxh,h*xoxhegxoxhxo, (fF *o * £ xox h)%*2, 


a°e=a,a° f=axc,a°g=a"2,a°h=axb,a° o=a"2,b°e=b,b* f=b«c,b*g=b°2, 


b*h=b*2, 
b*o=b,c°e=b*c72,c° f=c*2,c° g=c"2,c°h=c°2,c°o=cxrd"2, 
d*e=d*2,da° f=d, d* g=d*2,d*h=d, d* 0o=d*2>; 

#M; 

#G1; 

£1,M1,k1:=CosetAction (M, sub<M|Id(M) >); 
s:=IsIsomorphic(G1,M1);s; 


A.3 5 > D4, x 53 


G<x,y,Z,w,h,t>:=Group<x,y,Z,w,h,t|x°2,y°2,z2°2,w 4,h°2, (y*z) 


(x*w°-1)°2, (y*w°-1)°2,z*w°-lx«zew, 


wo -2*eh,x*y*x*eyxw -1l, xX*z*xxzeh,t°2, (t,x), (y*xt) °4, (z*wxt) “0, 


(zZ*x*t) 73, (y*x*t) 71 
#G; 
£,G1,k:=CosetAction (G, sub<G|x,y,Z,w,h>) ; 
#k; 
IN:=sub<Gl/f(x),f(y),f£(z),f£(w),f(h)>; 
CompositionFactors (Gl); 
NL:=NormalLattice (G1); 


L; 
NL[2]; 

Center (G1); 

X:=[5,5,5,5]; 

IsIsomorphic (NL[2],AbelianGroup (GrpPerm, (X))); 
H:=NL[2]; 
gq, ££:=quo<G1|NL[2]>; 
Or 

TsAbelian(q); 
FPGroup (NL[2]); 


LO, (y*x*zxt) “6>; 


S<w,X, Vy, Z>:=Group<w,x,y,zZz|w°5,x°5,y°5,z75, (w,xX), (w,y), (X,Y), 


(w,Z), (X,Z)_, (yr Z)>3 
ff,ss,kk:=CosetAction(S,sub<S|Id(S)>); 
s,t:=IsIsomorphic(ss,NL[2]); 

S; 

FPGroup (q) ; 


H<e, f,9,h,v>:=Group<e,f,g,h,v|e°2,f£°2,g9°2,h°2,v°2, (exg) “2, 
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f * h)*2,(g * h)*2, (e* 0)°2, (g *0) 2, 


ay, 
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(Eng) 4, (ean) 2,4 a hyp 2 te ae ay 

(e * v)°2,(h * v)*2,e * £ * e « £ *« h, 

vrwrerw f x ex vx £,9 * Ve G* © * V * Gk V >; 
ff,ss,kk:=CosetAction (H, sub<H|Id(H)>); 
s,t:=IsIsomorphic(q,ss)j; 


S; 

nl:=NormalLattice(q); 

mks 

E:=DirectProduct (n1[10],nl1[7]); 
IsIsomorphic(E,q); 
IsIsomorphic(nl1[7],SymmetricGroup (3) ); 
n1[7]; 

nl[10]; 


IsIsomorphic (DihedralGroup (4),n1[10]); 
E:=DirectProduct (DihedralGroup (4) ,SymmetricGroup (3) ); 
IsIsomorphic(E,q); 

T:=Transversal(Gl,NL[2]); 


A:=G1!NL[2].1; 
B:=G1L!NL[2] .2; 
C:=G1!NL[2].3; 
D:=G1!NL[2].4; 
ar 

fF(T[2]) eq q.1; 
f£F(T[3]) eq q.2; 
fE(T[4]) eq q.3; 
fE(T[5]) eq q.4; 
ffF(T[6]) eq q.6; 
BE:=q!q.1; 
FF:=q!q.2; 
GG:=q!q.3; 
DD:=q!q.4; 
CC:=q!q.6; 
f£F(T[3]) eq FF; 
f£F(T[2]) eq EE; 
ff(T[4]) eq GG; 
fE(T[5]) eq DD; 
fE(T[6]) eq CC; 
gq eq sub<q|EE,FF,GG,DD,CC>; 
J:=G1!T[2]; 
T:=G1!T[3]; 
M:=G1!T[4]; 
O:=G1!T[5]; 
Q:=G1!T[6]; 

for i,j,k,l in [1..5] do if A°J eg 


end if; 


end if; 


end if; 


end: -1-£; 


end if; 


end if; 


end if; 


end if; 


end if; 


end if; 


end if; 


end if; 


end if; 


end if; 


end if; 


*C°k*D*1 then i,j,k,1; 

rk, an [t...5] do. rt A° Dt ieg 
*C°k*D*1 then i,j,k,1; 

,k,l in [1..5] do if A°M eg 
*C°k*D*1 then i,j,k,1; 
A*4*B72*C*3; 

j,k loin. [iv.5)] do 1f AO eq 

*C°k*D*1 then i,j,k,1; 

A*4; 

,k,l in [1..5] do if A°Q eg 
*C°k*D*1 then i,j,k,1; 
AxB*3x*D*3; 

j,k,1l in [1..5] do if B°J eg 
*C°k*D*1 then i,j,k,1; 

B; 

pkey in [lss5:)) do if BL. eq 
*C°k*D*1 then i,j,k,1; 
A*4*«BxC* 3; 

,k,l in [1..5] do if B°M eg 
*C°k*D*1 then i,j,k,1; 
BxD; 

3,k,1l in [1..5] do if B°O eg 
*C°k*D*1 then i,j,k,1; 

B°4; 

j/k, in [iss] <do 1f B°Q eq 
*C°k*D*1 then i,j,k,1; 

D°4; 

3,k,l in [1..5] do if C°J eg 
*C°k*D*1 then i,j,k,1; 
C*4x«D*4; 

jpky,k ins [12.5] do tt 6° 2 eq 
*C°k*D*1 then i,j,k,1; 
A*4«C°4; 

3,k,l in [1..5] do if C°M eg 
*C°k*D*1 then i,j,k,1; 

CxD; 

7 kk. da [2s 5) do: TE CVO “eg 
*C°k*D*1 then i,j,k,1; 

Crd 

pkey 2, lw bls sdo “EE Cr Oe 
*C°k*D*1 then i,j,k,1; 
A*xB°2«C°4xD; 

ji, kplan ES) do ti Dd reg 
*C°k*D*1 then i,j,k,1; 


end if; 


end 


end 


end 


end 


end 


end 


end 


end 


end 


end 


end 


end 


end 


end 


end 


end 


for; 


for; 


for; 


for; 


for; 


for; 


£OxX; 


for; 


for; 


for; 


for; 


£Oxr; 


for; 


for; 


for; 


for; 
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D*J eq D; 

for i; ), Kk, an [1s.5-) do. tf ID" 2 eg 

A°ixB* j*C°k*D*1 then i,j,k,1; end if; end for; 

D*I eq A°2*B°3*C°2*D*4; 

for i,j,k,l in [1..5] do if D°M eg 

A°ixB* j*C°k*D°1 then i,j,k,1; end if; end for; 

D°*M eq D°4; 

FOr ay, yi, Kok an Lis. 5) cdo. tf Dr Oceg 

A°ixB* j*C°k*D*°1 then i,j,k,1; end if; end for; 

D*O eq D°4; 

for. 1,7),k,1 in [1.5] do if D°Q eg 

A°ixB* j*C°k*D*1 then i,j,k,1; end if; end for; 

D*Q eq B*4; 

S<w,x,y,z,e,f,g,h,v>:=Group<w, x,y,z,e,f£,9,h,vlw°5,x°5,y"5, 
2,V" 


z°5, (w,X), (w,y), (X,Y), (w,Z), (%,2Z), (y,Z) we ay £27 G2 5h° , 2, 


(exg) “2, (fxg) “2, (exh) “2, (£ * h)*2,(g * h) 72, 

(e * v)°2,(h * v)*2,e *« £ *« e « £ * h, 

vw ex fF *« @ xe vx €£,9 * V* G * © kV * Gk V, 

w°e=w° 4*x°2*zZ°2,w f=w,w g=w 4*x°2*y°3,w h=w4, 

Wo v=wtx°3*z°3,x°e=x, xX° f=w" 4«x*y°3,x° g=x*z,x h=x°4,x°v=z"4, 
y e=y°4*z°4,y° f=w" 4xy"°4,y g=y*z,y h=y°4,y° vewex 2*y"4xz, 
Z°e=Z,Z2° f=w 2x 3«y°2*z74, 

zZ°g=z°4,z°h=z°4,z°v=x"4>; 

#S; 
f,g,k:=CosetAction(S,sub<S|Id(S)>); 
s:=IsIsomorphic(Gl,g); 

Ss; 


A.4 2056 


G<w,X,Vy,Z,t>:=Group<w, X,y,z,t|lw°2,x°2,y°4 


,Z° 2, (wey?-1)°2, 
K*Y Lex KY, Y°-2*Z,WkXeWHX*Z,C°2, (C,W), (X*t) 78, (x*ey>-1x*t) 75, 
(y*xt) “4, (x*xwet) 70, (wex*eyxt) 75, (wex*xyxt) “0>; 
#G; 
£,G1,k:=CosetAction (G, sub<G|w, x,y, Z>); 
#k; 


CompositionFactors (G1); 
NL:=NormalLattice (G1); 
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gq, ££:=quo<G1|NL[2]>; 
Tr 
CompositionFactors (q); 
Center(Gl) eq NL[2]; 

nl:=NormalLattice(q); 
nl; 


H<a,b,c>:=Group<a,b,c|a°2,b°2,c°2, (a * b)°2, (b *«c) 74, 


beaxcebeaxcxbtrarxctxaxb*x«crxaxbD«c, 


(a * c)°8, c* a* cx bx cra * c eb * Ct Db * Ax Ce 


be Cc * ax Cc *b * C * a x* C # D>; 


ff,ss,kk:=CosetAction (H, sub<H|Id(H)>); 


s,t:=IsIsomorphic(q,ss) ; 
S; 
S<e>:=Group<e|e*2>; 


ff,ss,kk:=CosetAction(S,sub<S|/Id(S)>); 


s,t:=IsIsomorphic(ss,NL[2]); 
S; 
T:=Transversal(Gl,NL[2]); 
ERI=qtq.2; 

FF:=q!q.3; 

GG:=q!q.5; 
q,f£:=quo<G1|NL[2]>; 
fE(T[3]) eq FF; 

f£F(T[2]) eq EE; 

f£F(T[4]) eq GG; 

gq eq sub<q|EE,FF,GG>; 
J:=G1!T[2]; 

T:=G1!T[3]; 

M:=G1!T[4 

A:=G1!NL[2] .2; 


i 

] 

1..2] do if A°J eq A*i 
for iin [1..2] do if A°I eq A7i 

1..2] do if A°M eq A*i 


H<a,b,c,e>:=Group<a,b,c,e|a°2,b°2,c°2, (a 


then 
then 
then 


1; 
1; 
1; 


bxaxcxbxaxcxb*xaxcxaxb*ecxaxb«c, (a * c)*8, 


Cc xa * C *b * cx b * ax cx be C * axc 


*b,e°2,e°a=e,e b=e,e*c=e>; 
#H; 
#G1; 


f1,H1,k1:=CosetAction (H, sub<H|Id(H)>); 


s:=IsIsomorphic(Gl,H1); 
S; 


end if; end for; 
end if; end for; 
end if; end for; 
* b) 72, (ob *c) 74, 


c* arxeecerxb * 
*b* Ccrx* axec 
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AS GSaore ss (2°%3) x2) 


G<x,y,Z,w,h,t>:=Group<x,y,z,w,h,t|x°2,y°2,z°2,w 4,h°2, 
(y*z)°2, (xxw°-1)°2, (y*w°-1)°2,z*w>-lx«zew, 

wo -2*h,x*y*x*yxw —-1l, xX*z*x*xzeh,t°2, (t,x), (y*xt) “6, (z*wxt) “3, 
(z*x*t) 710, (y*x*t) 74, (y*x*xzxt) “0>; 

#G; 

£,G1,k:=CosetAction (G, sub<G|x,y,Z,w,h>) ; 

#k; 
IN:=sub<G1|£(x),£(y),£(z),f£(w),£(h) >; 
CompositionFactors (Gl); 
NL:=NormalLattice (G1); 


ay 

for i in [1..#NL]do if IsAbelian(NL[i]) then 
i;end if;end for; 

NL[2]; 

Center (Gl); 

X= [5,9 975.1] 


H:=NL[2]; 
q, ££:=quo<G1|NL[2]>; 
or 


IsIsomorphic (DihedralGroup (72) ,q); 
N:=NormalLattice (q) ; 

N; 

BE:=DirectProduct (N[17],N[2]); 

IsIsomorphic(E,q); 

N[17]; 

FPGroup (q) ; 

H<e, f,g,h,o0>:=Group<e,f,g,h,o|e°2,f£°2,g°2,h°2,0°2, 
(exg) *2, (f£*g) °2, (exh) *2, (£ * h)*2, (g * h)*2, (ex 0) *2 
,(g *0)°2,e * f* e *« f * h,h * oO +e H* G* O * Hh +t O, 
(f *o * £ *o* h)*2>; 
ff,ss,kk:=CosetAction (H, sub<H|Id(H)>); 
s,t:=IsIsomorphic(q,ss)j; 

S; 

FPGroup (NL[2]); 
S<a,b,c,d>:=Group<a,b,c,d|a~5,b°5,c°5,d75, (a,b), (a,c), 
(b,c), (a, da), (bo, da), (c,d) >; 
ff,ss,kk:=CosetAction(S,sub<S|Id(S)>); 
s,t:=IsIsomorphic(ss,NL[2]); 

S; 


EE:=q!q.1; 

FF:=q!q.2; 

GG:=q!q.3; 

DD:=q!q.4; 

NN: =q!q.6; 
T:=Transversal(Gl1,NL[2]); 

gq, ££:=quo<G1|NL[2]>; 

f£F(T[2]) eq EE; 

fE(T[3]) eq FF; 

ffF(T[4]) eq GG; 

fE(T[5]) eq DD; 

fEF(T[6]) eq NN; 

A:=G1!NL[2].1; 

B:=G1!NL[2] .2; 

C:=G1!NL[2].3; 

D:=G1!NL[2] .4; 

H:=G1!T[2]; 

J:=G1!T[3]; 

I:=G1!T[4]; 

M:=G1!T[5]; 

O:=G1!T[6]; 

for i, j,k,1l in 5] do if A°™M 
then 1,j,k,l;end if; end for; 
for sy,37 Kyle tn [iei5)] dost A-O 
then i,j,k,1; end if; end for; 
for i,j,k,l in [1..5] do if B°H 
then 1,j,k,1; end if; end for; 
for i,j,k,l in [1..5] do if B°J 
then 1,j,k,l;end if; end for; 
for i,j,k,1 in 5] do if B°I 
then 1,j,k,1; end if; end for; 
for 1, j,k plcin [1.25] do» tt. BOM 
then 1,j,k,1; end if; end for; 
FOr sep 7-Ke ol. -aahe Pcs Se]? do-it BO 
then 1,j,k,l;end if; end for; 
for vi yk; la PL. 5)) do at CH 
then 1i,j,k,l;end if; end for; 
for 2, yk, 1 an [1.5]: dos tt Coo 
then i,j,k,l;end if; end for; 
£Or iy pk, cin. [Taf]! «dor at: Er 2 
then 1,j,k,l;end if; end for; 
for ay. 37k el in. [48]. do af -C°.M 
then 1,j,k,1; end if; end for; 
OK W:,/s7-ky an 5]. “do: aC -O 


eq 


eq 


eq 


eq 


eq 


eq 


eq 


eq 


eq 


eq 


eq 


eq 


3*C* 
3*C* 
jC" 
3*C* 
7eCo 
3*C* 
3*C* 
3*C7 
3*C* 
3*C* 
3*C* 


jac 
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S<a,b,c,d,e,f,9,h,o0>:=Group<a,b,c,d,e,f,9,h,o0|a°5,b°5,c75, 


(oor 


( 
(fxg) “2, (exh) °2, (£ *« h)*2, 
( “2, (ex oO) 


a°f=a74«c°4, 


a°g=a°4,a~h=a"4*c°4,a°o=a74 


,0°e=b,b° f=a"2«bxc,b° g=b° 4, b "h=b*4*d*4,b° o=b*4,c°e=c*4xd°4, 


then i,j,k,1; end if; end fo 
for Dyk, any Pl. .o]) dos ae 
then 1i,j,k,l;end if; end for 
EOS ay pkey de a a Oi] sao ave 
then 1i,j,k,l;end if; end for 
FOP? ap pkey le an [we SY CaO, Aue 
then i,j,k,1; end if; end fo 
LOE’ a3) -kKae an: “LE eb. dO: aE 
then 1i,j,k,1l;end if; end for; 
for a; ,7ky,b an:, [lo] “do: ast 
then 1i,j,k,1; end if; end fo 


Ud 
D*O 


vc; 


eq A°i*B” 
eq A7i*B™ 
eq A” ixB” 


eq A” i*B” 


eq A°i*B* 


c° f=c,c°g=c"4,c*h=c,c*o=ax*xc,d°e=d,d* f=d, 


d*g=d*4,d*h=d, d* o=bxd>; 
#S; 
#G1; 


f1,S1,k1:=CosetAction(S,sub<S|Id(S)>); 


s:=IsIsomorphic(G1,S1); 


S; 

Ase. SG Sls 2 a(5s< Cs) 
S:=Sym(8) ; 

ww:=S! (2, 5) (3, 7); 
xx:=S!(1,2) (3, 6) (4, 5) (7, 8); 
yy:=S!(1, 3, 4, 7) (2, 6, 5, 8); 
zz:=S!(1, 4) (2, 5) (3, 7) (6, 8); 


N:=Sub<S | ww, XX, YY, ZZ>; 
#N; 
Set (N); 


3*C* 
jc" 
3*C* 
3*C* 


5+" 


“2,(g *0)°2,e * fx e x* f * h, 
h*or* hx* gt ox h * o,(f *0 * £ *o*x h)*2,a°e=a-4xb74, 


a,c), (b,c), (a,d), (b,d), (c,d),e°2,£°2,9°2,h°2,0°2, 
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G<w,X,Vy,Z,t>:=Group<w,x,y,zZ,tlw°2,x°2,y°4,z°2 
*3 


ed 
K*Y Lex *Y, Y°-2*Z,WkXeWHX*Z,C°2, (C,W), (xX*t) 
#G; 
f, Gl, k:=CosetAction(G, sub<G|w,x,y,Z>); 
#k; 
CompositionFactors (Gl); 
N 
N 


L:=NormalLattice (G1); 


“47 

for i in [1..#NL]do if IsAbelian(NL[i]) then 
i;end if;end for; 

TsAbelian(NL[4]); 

X:=[2,2,2,2]; 

IsIsomorphic (NL[4],AbelianGroup (GrpPerm, (X))); 
H:=NL[4]; 
gq, ££:=quo<G1|NL[4]>; 


BE:=q! (1, 2) (3, 4) (5, 6); 
q! (3, 5) (4, 6); 
GG:=q! (1, 3) (2, 4); 
T:=Transversal(Gl1,NL[4]); 
fF(T[3]) eq FF; 
fE(T[2]) eq EE; 
f£(T[4]) eq GG; 
gq eq sub<q|EE,FF,GG>; 
FPGroup (SymmetricGroup (3) ); 
FPGroup (n1l[2]); 
S<a,b>:=Group<a,b|b°2,a°-3, (a°~-1xb) 72>; 
C<c>:=Group<c|c*2>; 
ff,ss,kk:=CosetAction(S,sub<S|Id(S)>); 
s,t:=IsIsomorphic(ss,nl[4]); 


S; 
ff£1,cc,kk1:=CosetAction(C,sub<C|Id(C)>); 
s,t:=IsIsomorphic(nl[2],cc); 

S; 

Generators (NL[4]); 

A:=G1!(2, 6) (3, 8) (4, 5) (7, 9); 
B:=G1!(1, 11) (3, 7) (8, 9) (10, 12); 
C:=G1!(2, 5) (3, 7) (4, 6) (8, 9); 
D:=G1!(1, 10) (3, 8) (7, 9) (11, 12); 
nl:=NormalLattice(q); 
Ts 
E:=DirectProduct (n1[4],nl1[2]); 
IsIsomorphic(E,q); 
IsIsomorphic(nl[4],SymmetricGroup (3) ); 


a 


,(wexy°-1)°2, 
1 (WkxX*Y*t) 73>; 
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T:=Transversal(Gl1,NL[4]); 


FECT) eq. gals 

fF(T[3]) eq gq.2 

FE (TES) } req <5; 
A:=G1!(2, 6) (3, 8) (4, 5) (7, 9); 
B:=G1!(1, 11) (3, 7) (8, 9) (10, 12); 
C:=G1!(2, 5) (3, 7) (4, 6) (8, 9); 
D:=G1!(1, 10) (3, ae 9) (11, 12); 
H:=G1!(3, 7) (4, 6) (1 12); 
I:=G1!(2, 3) (4, ne 3) (6, 9) (10, 
J:=G1!(1, 2) (4, 0) (5, 11) (6, 12) (8 
IsIsomorphic (nl : ],CyclicGroup(2)); 
T[2]; 
H:=G1!(3, 7) (4, 6) (10, 12); 
T[3]; 

=G1! (2, 3) (4, 8) (5, 7) (6, 9) (10, 
T(4]; 
J:=G1!(1, 2) (4, 10) (5, 11) (6, 12) ( 
Generators (q); 
FPGroup (NL[4]); 
For 257 k,l) an [s..2)) odor TE ATH eg 
then i,j,k,1; 
end if; end for; 
for i,j,k,l in [1..2] do if A°I eg 
then i, ),k,1; 
end if; end for; 
for i,j,k,l in [1..2] do if A°J eg 
then 1i,3j,k,1; 
end if; end for; 
for 2,7,k,1 an [1s.2], do-2£ BH eg 
then i,j,k,1; 
end if; end for; 
for 2, 77 ky,;) in [le.2)] do. af BOL eq 
then i, j,k,1; 
end if; end for; 
for i,j,k,l in [1..2] do if B°J eg 
then i,j,k,1; 
end if; end for; 
fori, 3), k; line [1.2] .do-. tt CoH eq 
then i,j,k,1; 
end if; end for; 
for 4;,),K pl in [is 42). do if -€" 1 eg 
then 1i,j,k,1; 
end if; end for; 


12); 


9); 


Avix 


Avix 


Avix 


B*3*C7k*D*1 


B*4*C*k*D71 


’ 


B*3*C*k*D7*1 


B*3*C*k*D7*1 


B*4*C*k*D7*1 


B*3*C*k*D7*1 


B*3*C*k*D7*1 


B*~3*C*k*D7*1 
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for i,4j,k,l in [1.. 


then i,j,k,1; 
end if; end for; 


EOP? “1p pkey can [dns 


then 1i,j),k,1; 
end if; end for; 


for i,j,k,l in [1.. 


then 1i,j),k,1; 
end if; end for; 


for i,4j,k,l in [1.. 


then i, ),k,1; 
end if; end for; 
FPGroup (q); 


Order (T[2]); 
Order (T[3]); 
Order (T[4]); 
Order (T[2]); 
(T[2] *T[3])°2; 
(T[2] *T[4]) °2; 
(T[4] *T[3]) °3; 
for i, 3),k,;) 2n 
if (T[2]°-1*«T[3] 
end if; end for; 
for a, 47 Kply an 
if (T[2]°-1«T[4] 


end if; end for; 
For 2, k;i, an 
if (T[4]7-1*T[3] 
end if; end for; 
for. 1, 47k, 


in 


ele 


[1. 


[1. 


[1. 


<2] 
)*2 eq A*ixl 


2] 
)*2 eq A*ixl 


a2 
)*3 eq A*ixl 


2] 


do 


do 


do 


do 


do 


do 


do 


do 


if 


aia 


if 


if 


DAL 


D*J 


if APB jae hep lL 6G G1 hy 2, 


(6, 8, 
end if; 


10) 
end for; 


H<w,X,y,Z,e,f,g>:=Group<w,x,y,Z,e,f,g|w 2,x°2,y°2,2°2, (w*x) 


(wey) “2, (x*xy) °2, (wz) 


yry e=y,y f=y, 


then i,j,k,1; 


eq A“ix!l 


B°j*C°k*D*1 


eq A“ixl 


eq A“ix 


eq A“ixl 


B° j*C*k*D*1 then 


3) (4, 9, 


VY gG=X, Z°e=x*z,Z° F=wex*y*Z,Z° g=wry>; 


#H; 


f1,H1,k1:=CosetAction (H, sub<H|Id(H)>); 
s:=IsIsomorphic(Gl,H1); 


S; 


B°j*C*k*D*1 


B°j*C°k*D7* 1 


B°j*C*k*D*1 


12) (5; 7, 


i,j,k,1; 


B*j*C*k*D*1 then i,3,k,1; 


B*j*C*k*D*1 then i,3,k,1; 


11) 
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-92, 
“2, (X*Z)°2, (y*z)°2,e°2,£°2,9°2, (exf) “2, 
(exg) “2, (gxf) “3,w° e=wry,w f=w*ey,W° g=x*zZ,xX° e=x, xX° f=x*y,X°g= 
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Aol GS OUe (0? 2S),) 


S:=Sym(16) ; 

xx:=S!(2, 8) (3, 7) (4, 14) (6, aoe BC 63 

yy:=S!(1, 2) (3, 9) (4, 8) (5, 10) (6, e 11) (12, 16) (13, 15); 
zz:=S!(1, 3) (2, 9) (4, 12) (5, 7) (6, 13) (8, 16) (10, 11) (14, 15); 
ws=-S4 Gly 45, Sy, Late, Cy Ay Spt ay. 125 Fy 15) (9> 2137, diy 16) 7 
hinges, Skt 2 POs. i) (4p Ta (ey Bop Le TS CS, 26) 


N:=Ssub<S|xx, yy, zz,ww,hh>; 

#N; 
G<x,y,Z,w,h,t>:=Group<x,y,zZ,w,h,t|x°2,y°2,z°2,w 4,h°2, (y*z) “2, 
(x*w°-1)°*2, (y*w°-1)°2,z*w°-lx«zew, 

wo -2*h,xX*y*xxX*yew -1,xX*zZ*x*z*h,t°2, (t,x), (y*t) °3, (z*wxt) 70 
(z*x*t) 70, (y*x*t) 76, (y*x*z*t) 73> 

#G; 

£,G1,k:=CosetAction (G, sub<G|x,y,Z,w,h>) ; 

#k; 

#sub<G1|£(x),f£(y),f£(z),£(w),£(h)>; 
IN:=sub<G1|f£(x),f£(y),f£(z),£(w),£(h)>; 

CompositionFactors (Gl); 
#DoubleCosets (G, sub<G|w, x,y, z,h>, sub<G|w,x,y,z,h>); 
NL:=NormalLattice (G1); 
L; 
for i in [1..#NL]do if IsAbelian(NL[i]) then i;end if;end for; 
IsAbelian(NL[9]); 

NL[9]; 

X:=[2,2,2,2,2]; 


IsIsomorphic (NL[9],AbelianGroup (GrpPerm, (X))); 
H:=NL[9]; 

gq, ££:=quo<G1|NL[9]>; 

or 

EE:=q! (1, 2) (3, 4); 

FF:=q! (2, 4); 

GG:=q! (1, 3) (2, 4); 


DD:=q! (3, 4); 


T:=Transversal (G1,NL[9]) 
fE(T[2]); 

fE(T[3]); 

fE(T[4]); 

fE(T[S]) 7 

fE(T[3]) eq FF 

f£(T[2]) eq EE; 

fE(T[4]) eq GG; 

fE(T[5]) eq DD; 


gq eq sub<q|EE,FF,GG,DD>; 
Center (Gl); 

Center(Gl) eq NL[9]; 
nl:=NormalLattice(q); 
mils 

FPGroup (q) ; 


H<e, f£,g,h>:=Group<e,f,g,h|e°2,f£°2,g°2,h°2, (exg) “2, (fxg) °2, 


(exh) “2,exfxexrfxg,hxgrexhxg, (h*f) ~3>; 
ff,ss,kk:=CosetAction (H, sub<H|Id(H)>); 
s,t:=IsIsomorphic(q,ss) ; 

S; 

FPGroup (NL[9]); 
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S<w,X,V,Z,V>:=Group<w,X,Vy,Z,V|W°2,X°2,y° 2,2 2,V 2, 

(w*x) “2, (w*y) “2, (x*xy) “2, (w*z) “2, (x*z)°2, (y*z) “2, (Wkv) “2, 
(x*V) 72, (y*v) 72, (z*v) °2>; 
ff,ss,kk:=CosetAction(S,sub<S|Id(S)>); 
s,t:=IsIsomorphic(ss,NL[9]); 

S; 

Generators (NL[9]); 

A:=G1!(1, 24) (2, 7) (3, 9) (4, 15) (5, 6) (8, 19) (10, 20) (11, 21) 
(12, Us) (i445. L8)5L6,.. 22).(1 7, 23) 

B:=G1!(1, 16) (2, 15) (3, 19) (4, 7) (5, 12) (6, 13) (8, 9) (10, 21) 
(11, 20) (14, 23) (17, 18) (22, 24); 

C:=G1!(1, 17) (2, 6) (4, 12) (5, 7) (13, 15) (14, 22) (16, 18) 

(23, 24); 

D:=G1! (2, 6) (3, 11) (4, 12) (5, 7) (8, 10) (9, 21) (13, 15) 

(19, 20); 

F:=G1! (2, 4) (3, 9) (5, 13) (6, 12) (7, 15) (8, 19) (10, 20) 

(Asp. Zi)? 

T[2]; T(3];TL4]; TO5]; 

J:=G1!(3, 8) (4, 12) (5, 7) (9, 20) (10, 11) (14, 22) (16, 18) 

(19%. 21) 3 

T:=G1!(2, 3) (4, 9) (5, 8) (6, 11) (7, 10) (12, 21) (13, 19) (14, 24) 
(1590:20):(22;,. 23) 5 

Mi=Gl le (2. -5;° 6, FIMS pp hO; 22 8) (4. 13" L2, 15) 069; 20, 21-19) 
(14). "22. (237 24).3 

O:=G1!(1, 2) (4, 14) (5, 16) (6, 17) (7, 18) (9, 20) (12, 22) 

(136 2:3): (15 5 224) 9) 21). 6 

for i,j,k,1l,m in [1..2] do if A°J eq A°i*B*4jx*C°k*D*1*F*m 
then 1,3,k,1,m; 

end if; end for; 

for i,j,k,1l,m in [1..2] do if A°I eq A°i*B*j*C°k*D*1*‘F*m 


then 1,3,k,1,m; 
end af -end:- £or; 


for i,j,k,1l,m in 
then 1i,3,k,1,m; 
end if; end for; 
for i,j,k,1,m in 
then i,j,k,1,m; 
end if; end for; 
for i,j,k,1,m in 
then i,j3,k,1,m; 
end if; end for; 


for i,j,k,1l,m in 


then 1, j,k,1,m; 
end if; end for; 


for i,j,k,1,m in 


then 1i,3,k,1,m; 
end if; end for; 
for i,j,k,1l,m in 
then i,3,k,1,m; 
end if; end for; 


for 1 pkey 
then 1i,j3,k,1,m; 
end if; end for; 


ym an 


FOr 4, pk lym in 


then 1i,j,k,1,m; 
end if; end for; 
LOE sop )7K cle Me on 
then 1,j,k,1,m; 
end if; end 
for i,j,k,1l,m in 


for; 


then 1, ),k,1,m; 
end if; end for; 
for i,j,k,1,m in 
then 1i,j,k,1,m; 
end if; end for; 
for i,j,k,1,m in 
then 1i,j3,k,1,m; 
end if; end for; 
FOr ‘ty,4)7 ky bpm: an 


then 1i,3,k,1,m; 
end if; end for; 
for i,j,k,1,m in 
then 1i,j3,k,1,m; 
end if; end for; 
for i,j,k,1l,m in 
then 1i,j,k,1,m; 


if 


if 


if 


Le 


if 


if 


if 


Ie 


aba 


if 


if 


A°M 


A“O 


B°J 


B*O 


C°M 


C70 


Di 


D°M 


D*O 


F°J 


eq 


eq 


eq 


eq 


eq 


eq 


eq 


eq 


eq 


eq 


eq 


eq 


eq 


eq 


eq 


A*ixB*4x*C*k*xD°1l+eFom 


A*ixB*4*C*k*D°1l*F°m 


A*ixB*3*C*k*xD°l+eFom 


A*ixB* 4 j*C*kxD7*1 


A*ixB*j*C*kxD7*1 


A*ixB*3*C*k*xD°1l+eFom 


A*ixB*4*C*kxD7] 


1l*F*°m 


A*ixB*4j*C*kxD7] 


A*ixB*3*C*k*xD°1l+eF*m 


A*ixB*4x*C*k*D°1l+eF*m 


A*ixB*3x*C*k*xD°1l+eFom 


A*ixB*3*C*k*xD°1l+F*m 


A*ixB*4*C*k*D°1l*F°m 


A*ixB*jx*C*k*xD°1l+eF*m 


A*ixB*3*C*k*xD°1l+eF*m 
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end if; end for; 

for i,j,k,1l,m in [1..2] do if F°I eq A°i*B*j*C°k*«D*1*F*m 
then 1i,3,k,1,m; 

end if; end for; 

for i,j,k,1l,m in [1..2] do if F°M eq A°i*B*j*C°k*«D*14*F*m 
then i,j,k,1,m; 

end if; end for; 

for i,j,k,1l,m in [1..2] do if F°O eq A°i*B*j*C°k*D*1*‘F*m 
then i,j,k,1,m; 

end if; end for; 
S<w,X,Vy,Z,v,e,f,g,h>:=Group<w,x,y,Z,v,e,f,9,h|w°2,x°2,y°2,Z2°2, 
2, (wev) 72, 
(X*V) 72, (y*xv) 72, (z*V) °2,W> e=wez,w f=weX*y*Z,W G=wry 


A 


v2, (wex) ~2, (wey) “2, (x*y) “2, (w*z) °2, (x*z) “2, (y*Z) 


,w h=xX*y*Z,X° e=X*xy*z,X £=x*xz,X G=x*z,xX h=w«z,y e=y,y f=y*z,y g=y, 
y h=y,z°e=z,z° f=z,z° g=z,z° h=y*z,v° e=z*v,v° f=v, Vv" g=v, V A=W Xx V*Z*V, 
e°2,£°2,9°2,h°2, (exg) *2, (fxg) “2, (exh) 72, 

exfxexfxg,h*xgxexhxg, (h*f) ~3>; 

#S; #G1; 

f1,S1,k1:=CosetAction(S,sub<S|Id(S)>); 

s:=IsIsomorphic(G1,S1); 

S; 


AIRY QPS t SK Cs) 


S:=Sym (8); 

ww:=S!(2, 5) (3, 7); 
xx:=S!(1,2) (3, 6) (4, 5) (7, 8); 
yy:=S!(1, 3, 4, 7) (2, 6, 5, 8); 
zz:=S!(1, 4) (2, 5) (3, 7) (6, 8); 


N:=sSub<S |ww, XX, YY, ZZ>; 

#N; 

G<w,X,Vy,Z,t>:=Group<w, X,y,zZ,t|w°2,x°2,y°4,2°2, (wxy°-1) 72,x*y~ 
—1*x*Y, Y°-2*Z,WkXkWeK*Z,t°2, (C,W), (X*t) 73, (Wex*yxt) ~3>; 

#G; 

f, Gl, k:=CosetAction(G, sub<G|w,x,y,2Z>); 

#k; 
CompositionFactors (Gl); 

IN:=sub<G1|£(w),£(x),f£(y),£(z)>; 

NN<w, X,Y, Z>:=Group<w,x,y,Z|W°2,x°2,y°4,Z2°2, (w*y°-1) °2,x*y~ 


—1kx*Y, Y° -2*Z,WHXKWKXKZ>; 
Sch:=SchreierSystem (NN, sub<NN|Id (NN) >); 
ArrayP:=[Id(N): i in [1..16]]; 

for iin [2..16] do 
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:=[Id(N): 1 in [1..#Sch[i]]]; 
for j in [1..#Sch[i]] do 
if Eltseq(Sch[i])[j] eq 1 then P[j]:=ww; end if; 
if Eltseq(Sch[i])[j] eq -1 then P =ww'-1; end if; 
if Eltseq(Sch[i])[j] eq 2 then P[Jj]:=xx; end if; 
if Eltseq(Sch[i])[j3] eq -2 then P[j]:=xx*-1; end if; 
if Eltseq(Sch[i])[j] eq 3 then P[j]:=yy; end if; 
if Eltseq(Sch[i]) [3] eq -3 then P =yy -l; end if; 
if Eltseq(Sch[i])[j] eq 4 then P[j]:=zz; end if; 
if Eltseq(Sch[i]) [Jj] eq -4 then P =zz°-1; end if; 
end for; 
PP:=Id(N); 
for k in [1l. do 
PP:=PPx*P[k]; ee £or; 
ArrayP[1i]:=PP; 
end for; 
G<w,X,VY,Z,t>:=Group<w, X,y,zZ,t|w°2,x°2,y°4,z2°2, (wxy°-1) 72, 
K*Y Ll kXKY, Y°-2*Z,WkKXeWHXKZ,C°2, (C,W), (X*t) 73, (wex*yxt) 73> 
£,G1,k:=CosetAction (G, sub<G|w, x,y, z>) 


#DoubleCosets (G, sub<G|x,y>,s 
prodim function(pt, Q, I) 
/x* 

Return the image of pt under permutations Q[T] 
applied sequentially. 

x / 

Vi=pt; 

for 1 in I do 

il); 


ub<G|w,X,V,Z>); 


vi=v~> (O[ 
end for; 
return v; 

end function; 


W,phi:=WordGroup (G1) ; 
rho:=InverseWordMap (G1) ; 
IN:=sub<G1|f£(w),f£(x),f(y),£(z) >; 
ts := [ Id(Gl): i in [1 8] ]; 
ts[1l]:=f(t); 

ts[2]:=f£(t* (x73)); 
ts[3]:=f(t* (wey) ); 

ts[4]:=f£(t* (z73)); 
ts[5]:=f (t* (x*«w)); 
ts[6]:=f (t* (w*xxy)); 

ts[7]:=f£(t* (z*y)); 
ts[8]:=f (t* (x*y*-1)); 

ts; 


173 


est = ini ssa ane Ld) a 2A Y 
where null is[Integers() |]; 
for 1 := 1 to 8 do 
cst[prodim(l1, ts, [1])]:=[1]; 
end for; 


m:=0; for iin [1..12] do if cst[i] ne [] then m:=m+1; 
end if; end for; m; 


Orbits (N); 

N1:=Stabiliser(N,1); 

Nis:=N1; 

Orbits (Nl1s); 

for m,n in IN do if ts[l]*ts[4] eq m*(ts[1])°n then m,n; 
end if;end for; 

for m,n in IN do if ts[1l]*ts[7] eq m*«(ts[1])*n then m,n; 
end if;end for; 

for m,n in IN do if ts[l]*ts[2] eq m*«(ts[1])°n then m,n; 
end if;end for; 

for m,n in IN do if ts[l]*ts[8] eq m*(ts[1])*n then m,n; 
end if;end for; 

for m,n in IN do if ts[l]*ts[6] eq m*«(ts[1])°n then m,n; 
end if;end for; 

#N/#N1; 

#N/#N18; 

#N1s; 

Nls; 

N14:=Stabiliser(N, [1,4]); 

N14s:=N14; 

S:={[1,4] }; 

SS:=S°N; 


SSS:=Setseq (SS) ; 

for i in [1..#SS] do 

for g in IN do if ts[l]*ts[4leq g*xts[Rep(SSS[1i]) [1]]«ts 

[Rep (SSS[i]) [2] ]then print SSS[i]; 

end if; end for; end for; 

xr g in N do if 1°g eq 2 and 4°g eq 5 then N14s:=sub<N|N14s,9g9>; 
d if; end for; 
rg in N do if 1°g eq 3 and 4°g eq 7 then N14s:=sub<N|N14s,qQ>; 
d if; end for; 
r gin N do if 1*g eq 4 and 4°g eq 1 then N14s:=sub<N|N14s,g9>; 

end if; end for; 
rg in N do if 1°g eq 5 and 4°g eq 2 then N14s:=sub<N|N14s,g9>; 
d if; end for; 
r gin N do if 1*g eq 6 and 4°g eq 8 then N14s:=sub<N|N14s,g9>; 
d if; end for; 


for 
end 
for 
end if; 
#N14s; 
N14s; 

#N/#N148; 


Tf ¢ 


T:=Transversal (N,N14s); 


for 1 
ss 


cst [prodim(1, 


end for; 
m:=0; for 
end if; 


i 


end 


GS; 


in 
for;m,; 


Orbits (N14s); 


form Nan 


end if; 


Hh 
(0) 
R 


KRaK AK Ak Ak a 


in 
TE 


d 
N17: 
N17s:=N17; 
S:={[1,7]} 
SS:=S°N; 


en 


N 


20o2080228&02328A24 0 


jen 


Z 


d 


’ 


OO. sds 7 


for; 


Go: ab 6 


for; 


CO: ARE SE 


for; 


do if t 


COL; 


do if t 


for; 


ao: SE t 


for; 


aot 


for; 


SSS:=Setseq(SS) ; 


for i in 


[1..#SS] 


for g in IN do 


LE Sti] & 
then print 
end if; 
for 
gs 
for 
gs 
for 


ts[7] 


end for; 
g in N do if [1 
end if; end for; 
g in N do if [1 
end for; 
| 


end if; 
g in N do if [1 


SSS[i]; 


1 to #T do 
[1,4] °T[il; 


ss) 


=Stabiliser(N, [1,7] 


do 


end 
| 


pel 


eq gxts[Rep(SSS[i]) 


for; 


“g eq 


“gceq 


SE 


and 4 


g in N do if 1°g eq 7 and 4°g eq 3 
end for; 
g in N do if 1°g eq 8 
end for; 


ke ayets ia) 


eq 
eq 
eq 
eq 
eq 


eq 


eq 


then N14s: 
then N14s: 
[] then m: 
x«ts[5] th 
xts[7] th 
xts[1] th 
xts[2] th 
«ts[8] th 
xts[3] th 
xts[6] th 


=sub<N|N14 
=sub<N|N14 
=mt+1; 
en n; 
en n; 
en n; 
en n; 
en n; 
en n; 
en n; 


[1]]*ts[Rep(SSS[i]) [2]] 


[4,3] then N17s:=sub<N|N17s, 
[2,6] then N17s:=sub<N|N17s, 
[3,4] then N17s:=sub<N|N17s, 


g>; end if; end for; 


for g in N do if 


g>;, end if; 


for g in N do if 


g>;, end if; 


for g in N do if 
end for; 
for g in N do if [1 
end for; 


g>;, end if; 


g>;, end if; 
#N17s; 
N17s; 
#N/#N1738; 


T:=Transversal(N,N17s); 


fOr 4. = 1 to #T do 


ss := [1,7]7 
cst [prodim(1 


end for; 
m:=0; for i 
end if; end 


Orbits(N17s); 


for n in IN 
end if; en 
fo 


H H H 
Hh Hh Hh 
o) o) o) 
Hs) HS) i 
20a20223290o20 


Hh 
Kh 
0) 
i: 

2a 


H 
Fh 
0) 
2): 

2a 


OPAnHAaAanKaAaK AR AK Ak 


= 
Fh 
0) 
1} 
Q, 


Eady 
, ts, 


amy “(SL es 


for;m,; 


y 


Cort, e 


LOL; 


do if t 


for; 


do if t 


for; 


ae: aft 


for; 


do if t 


for; 


do if t 


for; 


OO: deb, 


for; 


ss) ] 


g eq [5,8 
g eq [6,2 
g eq [7,1 
g eq [8,5 
= Ss; 

do if cst 
«ts [ eg 
«ts [ eg 
«ts [ eq 
«ts [ eq 
xts eq 
xts eq 
«ts [ eg 


A.9 3:° PSL(2,19) x2 


S:=Sym(3); 
yy:=S! (2, 3) 
ww:=S!(1, 2, 


y 


3) 4 


N:=sub<S|yy,ww>; 


#N; 


G<y,w,t>:=Group<y,w,tly°2,w’3, 


tnen 


Ni7s:= 


Ni7s:= 


Ni7vs:= 


Ni7s:= 


b<N 


b<N 


b<N 


b<N 


17s, 


LTS; 


17s, 


17s, 


[] then m:=mt1; 
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(yxw*-1)°2,t°2, (try), (y*t) *2, 
(wxt) “10, (yxw°-1lx«*t) °9>; 
£,G1,k:=CosetAction (G, sub<G|y,w>) ; 
CompositionFactors (Gl); 
NL:=NormalLattice (G1); 


ly; 


S<d>:=Group<d|d*-3>; 
ff,ss,kk:=CosetAction(S,sub<S|Id(S)>); 
s,t:=IsIsomorphic(ss,NL[2]); 


S; 

H:=NL[2]; 

gq, ££:=quo<G1|NL[2]>; 
Gr 


T:=Transversal(G1,NL[2]); 
gq, ££:=quo<G1|NL[2]>; 
s:=IsIsomorphic(q,DirectProduct (PSL(2,19),CyclicGroup(2))); 


FPGroup ( 
H<a,b,c>:=Group<a,b,c|a*~2 
(a * c)°2 ,b * c * b*-1 * 


, (b*-1 * a)*2 , 
e b 

Best. eee Dee Oe ODT SL ee: ab 
c b 

ol 


b*-l * Cx ax 
Brads ae cee gy 
b 


+ * 2 
Qaa N 


+ + + 


(oH 1. 4 se) 0 ae ke SL, 2k * Cc * b°-l « 

CG & bosl 4:6 &# BD * © * bo=1- x b*-1l * c * b*-1 * 

crx bx arxex b°-1l * c *« D°-1l* cre D* Ow bD*eC x 

b* crx b*-l * c * bD* Cc * b * C * b*-1>; 

#H; 

f1,H1,k1:=CosetAction (H, sub<H|Id(H)>); 
s:=IsIsomorphic(q,DirectProduct (PSL(2,19),CyclicGroup(2))); 


+ 


S; 

A:=NL[2].2; 

J:=G1!T[2]; 

T:=G1!T[3]; 

M:=G1!T[4]; 

for iin [1..3] do if A*J eq A”i then i; end if; end for; 
for iin [1..3] do if A*I eq A”i then i; end if; end for; 
for iin [1..3] do if A°M eq A”i then i; end if; end for; 
for a an [ls..3) do 
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if T[2]°2 eq A*i then i;end if; end for; 

for. bin [1..3] “dé 

if T[3]°3 eq A*i then i;end if; end for; 

fora. ny “[dan.3)))-do 

if T[4]°2 eq A*i then i;end if; end for; 

fora: wn. ‘Pde 3) do 

if (T[3]°-1 * T[2])°2 eq A*i then i;end if; end for; 

for 1 in 5-3 | Sae 

if (T[2] * T[4])°2 eq A*i then i;end if; end for; 

for iin [1..3] do 

if T[3] *« T[4] * T[3]*-1 *« T[4] * T[3] * T[4] 

ABA ede AT ke LA, ae SES eA ok 

T[3] *« T[4] * T[3]7-l* T[4] * T[3]*T[4] * 

T[3]°-1 * T[4] eq A*i then i;end if; end for; 

for iin [1..3] do 

a ( T[3] *-1 *« T[4] )°10 eq A*i then i;end if; end for; 

for a. any [ls<3)). “do 

2f PPA). oe ed) Oe eA: ee) ead eels 

* T[4] * T[3] *-1 *& Tp4]) -* TES] *-k *« PFP4y 

TES * T[4] * T[3] *-1 * T[4] * T[3] 7-1 « T[4] 

& TLS) Fal « DPA] & TES y * T[2] * T[4] * 

TiS) Sick RA eS -1 * T[4] * T[3 * T[4] 
* T[3] «*« T[4]* T[3] «*« T[4] * T[3] *-1 * 

T[4] « T[3] *« T[4] * T[3] * T[4] *T[3] *-1 eg 


A°i then i;end if; end for; 
H<a,b,c,d>:=Group<d,a,b,cla°2 ,b°3 ,c°2 ,(b°-1 * a)°2 , 
(a.* c)°2 ,b * c * b*-1l * c * bx cx b*-1 *« ec 
* ax b*-1l * cx bx c xe bD*-lL* ce bB*xe Cx bD*-1l tc 
(b*-1 * c)710 , c * b*-1l * c xe b* cre b* cx b*-l1 
cox bo=-1l *& @ & De Ce Bb Hl * © * bD°-1L * Cc * BT] & 
* b* ax*xcrx. b*-1l *« ec x b*-1 * cx bB*e ax brear 
* Cc * b*-1 * ce b * Cc *« b * Cc * b*-1=d,d°3,d*a=d"2, 
d*b=d,d* c=d*2>; 
#H; 
#G1; 
f1,H1,k1:=CosetAction (H, sub<H|Id(H)>); 
s:=IsIsomorphic(Gl,H1); 


Oe 


S; 


Appendix B 


MAGMA Code for 


B.1 2+: S3 x Cy over (2 x 4: 2) 


S:=Sym(8); 

ww:=S!(2, 5) (3, 7); 

*xX:=S! (1,2) (3, 6) (4, 5) (7, 8); 
yy:=S!(1, 3, 4, 7) (2, 6, 5, 8); 
zz:=S!(1, 4) (2, 5) (3, 7) (6, 8); 


N:=sSub<S | ww, XX, YY, ZZ>; 
#N; 


G<w,X,VY,Z,t>:=Group<w, X,y,zZ,t|w°2,x°2,y°4,Zz°2, (wxy°-1) 72, 


x*y°-l*exx*y, 


DCE 


VY -2*Z,WeX*WHX*Z,C°2, (t,w), (KX*t) 73, (WexX*xy*t) 73>; 


G; 


f, Gl, k:=CosetAction(G, sub<G|w,x,y,2Z>); 


#k; 
CompositionFactors (Gl); 
IN:=sub<G1|f(w),f(x),fly),£(z)>; 


NN<w, X,Y, Z>:=Group<w,x,y,Z|W°2,x°2,y°4,z°2, (wxy°-1)°2, 


x*y Lexx y, Y°-2*Z, WH XKWHXKZ>; 


Sch:=SchreierSystem (NN, sub<NN|Id (NN) >); 


ArrayP:=[Id(N): i in [1..16]]; 
for iin [2..16] do 


:=[Id(N): l in [1..#Sch[i]]]; 
for j in [1..#Sch[i]] do 
if Eltseq(Sch[i]) [J 
if Eltseq(Sch[i]) 
if Eltseq(Sch[i]) 
if Eltseq(Sch[i]) 


eq 1 then P[j]:=ww; end if; 


eq 2 then P[j]:=xx; end if; 


i] 
J] 
[3] eq -1 then P[j]:=ww*-1; end if; 
[J] 
3] eq -2 then P[j]:=xx*-1; end if; 
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if Eltseq(Sch[i])[j] eq 3 then P[j]:=yy; end if; 

if Eltseq(Sch[i])[j] eq -3 then P[j]:=yy*-1; end if; 
if Eltseq(Sch[i])[j] eq 4 then P[j]:=zz; end if; 

if Eltseq(Sch[i])[j] eq -4 then P[j]:=zz*-1; end if; 
end for; 

PP:=Id(N); 

for k in [1..#P] do 

PP:=PP*P[k]; end for; 

ArrayP[1i]:=PP; 

end for; 


G<w,X,Vy,Z,t>:=Group<w, X,Y, Z,1 
x*y TL ex*y, Y°-2*Z, WH X*XWHX*Z, 1 


t|w°2,x°2,y°4 
C72, (t,w), (x 


, (wey”-1)%*2, 


VED 
*t)°3, (wexx«xy*t) 73>; 


£,G1,k:=CosetAction (G, sub<G|w, x,y, Z>); 


#DoubleCosets (G, sub<G|x,y>,s 
prodim function(pt, Q, I) 
/x* 

Return the image of pt under 
applied sequentially. 

* / 

Vi=pt; 

for i in I do 

vi=v" (Q[il]l); 

end for; 


return v; 

end function; 
W,phi:=WordGroup (G1) ; 
rho:=InverseWordMap (G1) ; 


ub<G|w, X,Y, Z>); 


permutations Q[T] 


IN:=sub<G1|f(w),f£(x),£(y),£(z)>; 
ts. ¢= [ Dd(Gl)2. 1 in [1 Sy). 13 
ts[l]:=f(t); ts[2]:=f(t* (x*3)); ts[3]:=f(t* (wey)); ts[4]:= 
£(L (2° 3) )5 
ts[5]:=f(t* (x*w)); ts[6]:=f (t* (wexey)); ts[7]:=f (t* (z*y)); 
ts[8]:=f(t* (x*y*-1)) 
tS; 
est:= [null iin [1 12) ] 
where null is[Integers() |]; 
for 1 := 1 to 8 do 
cst[prodim(1, ts, [1])]:=[1]; 
end for; 
m:=0; for iin [1..12] do if cst[i] ne [] then m:=mt1; 
end if; end for; m; 
Orbits (N); 


N1:=Stabiliser(N,1); 
Nis:=N1; 


Orbits (Nl1s); 


for m,n in IN do 
end if;end for; 
for m,n in IN do 
end if;end for; 
for m,n in IN do 
end if;end for; 
for m,n in IN do 
end if;end for; 
for m,n in IN do 
end if;end for; 
#N/#N1; 
N14:=Stabiliser(N 
N14s:=N14; 
S:={[1,4]}; 
SS:=S°N; 


SSS:=Setseq (SS) ; 
for a: an [ils .tSS] 
for g in IN do if 


ts[Rep(SSS[i]) [2]] 


end if; end for; 
for g in N do if 
g>, end if; end f 
for g in N do if 
g>, end if; end f 
for g in N do if 
,g>; end if; end 
for g in N do if 
g>; end if; end f 
for g in N do if 
g>, end if; end f 
for g in N do if 
g>, end if; end f 
for g in N do if 
g>, end if; end f 
#N14s; 

N14s; 

#N/#N148; 
T:=Transversal (N, 
for i:= 1 to #T 
ss := [1,4]°T[il; 
cst [prodim(l, ts, 
end for; 


m:=0; for iin [1.. 


if ts 
if ts 
LE eS. 
if ts 
if ts 
,[1,4]); 


do 


end for; 
1*g eq 2 
Ox; 
1*g eq 3 
Ox; 
1l*g eq 4 
for; 
1l*g eq 5 
Ox; 
1*g eq 6 
Or; 
1*g eq 7 
Ox; 
1*g eq 8 
Ox; 


N14s); 
do 


J«tsl[ 


]*xtsl[ 


J«tsl[ 


x«ts[ 


J«tsl[ 


an 


an 


an 


an 


d 


d 


d 


ss)] := ss; 


12] do if cst 


A* 


eq m 


eq m 


eq m 


eq m 


g eg 


g eg 


ee ae =e | 


eee ae =e 


g eg 


AG SO 


g eg 


Roe 


AST 


tnen 


14s: 


14s: 


14s: 


14s: 


14s: 


14s: 


14s: 


=S 


=s 


= 


= 


=o 


= 


=5 


ts[l]*ts[4Jeq gxts[Rep(SSS[i]) [1] ]* 
then print SSS[i]; 


ub<N 


ub<N 


ub<N 


ub<N 


ub<N 


ub<N 


ub<N 


[] then m:=mt+1; 


2 Is, 


a Is, 


a Is, 
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end if; end for;m; 
Orbits (N14s); 

FOr ne in INdo 2f 
end if; end for; 
for n in IN do if 1 
end if; end for; 
for n in IN do if 1 
end if; end for; 
for n in IN do if 1 
end if; end for; 
fOr nm. in IN do. if 
end if; end for; 
for n in IN do if 1 
end if; end for; 
for n in IN do if 1 
end if; end for; 
N17:=Stabiliser(N, [1,7] 
N17s:=N17; 
S:={[1,7]}; 
SS:=S°N; 


SSS:=Setseq (SS); 


fOr A. .1n 


[1 


.-#SS) 


for g in IN do 
if ts[l]«ts 


then print 


for 
g>; 
for 
g>; 
for 
g>; 
for 
g>; 
for 
g>; 
for 
g>; 
for 
g>; 


g in 
end 


end 


#N17s; 
N17s; 
#N/#N173; 
T:=Transversal(N,N17s); 
1 to #T do 


for 


13 


N 
AES 


[7] eq gxts[Rep(SSS[i] 
SSS[i]l;end if; 
1,7] 


do if 
end fo 
do if 
end fo 
do if 
end fo 
do if 
end fo 
do if 
end fo 
do if 
end fo 
do if 
end fo 


do 


vc; 


end for; 
“g eq [4,3] 
“Gg -Eq: [25-6 
“g eq [3,4 
*g eq [5,8 
“g eq [6,2 
*g eq [7,1 
*g eq [8,5 


eq 


eq 


eq 


eq 


eq 


eq 


eq 


PLT s 


end for; 


Enen 


then 


then 


en 


en 


hen 


17s: 


17s: 


l7s:= 


l7s:= 


l7s:= 


17s: 


l7s:= 


=6 


b<N 


b<N 


b<N 


b<N 


b<N 


b<N 


b<N 


ts[Rep(SSS[i]) [2] ] 
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then m:=m+1; 


ss := [1,7] °T[il; 

cst [prodim(l1, ts, ss) Ss; 

end for; 

m:=0; for i in [1..12] do if cst[i] ne [] 

end if; end for;m; 

Orbits (N17s); 

for n in IN do if ts xts[7] eq nxts[4]*ts[3] th 
end if; end for; 

for n in IN do if ts[1l]*ts[7] eq n«ets[2]«ts[6] th 
end if; end for; 

for nn. in IN do-it ts. xts[7] eq n«xts[3]x*ts[4] th 
end if; end for; 

for n in IN do if ts xts[7] eq nxts[5]*ts[8] th 
end if; end for; 

for n in IN do if ts xts[7] eq n«xts[6]*ts[2] th 
end if; end for; 

for n in IN do if ts xts[7] eq n«xts[7]x*xts[1] th 
end if; end for; 

for n in IN do if ts[1l]*ts[7] eq n«xts[8]x«xts[5] th 
end if; end for; 

BQ <O8Cr (2? 2S over (2470; C5) 
S:=Sym(16); 

xxX:=S! (2, 8) (3, 7) (4, 14) (6, 10) (9, 13) (11, 16); 
yy:=S!(1, 2) (3, 9) (4, 8) (5, 10) (6, 14) (7, 11) (12, 
(134. L5y% 

zz:=S!(1, 3) (2, 9) (4, 12) (5, 7) (6, 13) (8, 16) (10, 
(14, 15); 

ww:= S!(1, 4, 5, 14) (2, 6, 10, 8) (3, 12, 7, 15) 
(9,° 2370 Py Le) 

hh:=S! (1, 5) (2, 10) (3, 7) (4, 14) (6, 8) (9, 11) (12, 
(13). 1:6) 3 

N:=sSsub<S|xx, yy, zz,ww,hh>; 

#N; 

FPGroup (N); 


G<x,y,Z,w,h,t>:=Group<x,y,z,w,h,t|x°2,y°2,z°2,w 4,h°2, 
“2, (x*xw°-1)°2, (y*w*-1)°2,z*w°-lx*zew, 


(y*Z) 


wo -2*h,xX*y*xx*yew —-1,xX*zZ*x*z*h,t°2, (t,x), (y*t) 3, 
(zxwet) 70, (z*x*t) 70, (y*x*t) 76, (y*x*zxt) 73>; 
£,G1,k:=CosetAction (G, sub<G|x,y,Z,w,h>) ; 
#DoubleCosets (G, sub<G|x,y,z,w,h>, sub<G|x,y,z,w,h>); 


#G; 


16) 


11) 


15) 


182 


183 


£,G1,k:=CosetAction (G, sub<G|x,y,Z,w,h>) ; 

#k; 

IN:=sub<G1|£(x),f£(y),f£(z),£(w),£(h)>; 
CompositionFactors (Gl); 

Set (N); 

NN<x, y, Z,W, h>:=Group<x,y,Z,w,h|x°2,y°2,z°2,w'4,h°2, 
(y*z)°2, (x*w°-1) 72, (y*w°-1)°2,z*w>-1*z*ew,w>-2x«h, 
KY kX ey KWo 1, XKZ*X*ZKND; 
Sch:=SchreierSystem (NN, sub<NN|Id (NN) >); 
ArrayP:=[Id(N): i in [1..32]]; 

for 2 an [2.232] “do 


:=[Id(N): 1 in [1..#Sch[i]]]; 
for j in [1..#Sch[i]] do 
if Eltseq(Sch[i])[j] eq 1 then P[Jj]:=xx; end if; 
if Eltseq(Sch[i])[j3] eq -1 then P[j]:=xx*-1; end if; 
if Eltseq(Sch[i])[j] eq 2 then P[j]:=yy; end if; 
if Eltseq(Sch[i])[j] eq -2 then P[j]:=yy*-1; end if; 
if Eltseq(Sch[i])[j] eq 3 then P[j]:=zz; end if; 
if Eltseq(Sch[i])[j3] eq -3 then P[j]:=zz*-1; end if; 
if Eltseq(Sch[i])[j] eq 4 then P[j]:=ww; end if; 
if Eltseq(Sch[i])[j] eq -4 then P[ =ww’-1; end if; 
if Eltseq(Sch[i])[j] eq 5 then P[j]:=hh; end if; 
if Eltseq(Sch[i])[j] eq -5 then P[j]:=hh*-1; end if; 
end for; 
PP:=Id(N); 
for k in [1..#P] do 
PP:=PP*P[k]; end for; 
ArrayP[1i]:=PP; 
end for; 


for iin [1..#N] do 1l°ArrayP[i],Sch[i];end for; 
G<x,y,Z,w,h,t>:=Group<x,y,zZ,w,h,t|x°2,y°2,z°2,w 4,h°2, 
(y*z)°2, (xxw°-1)°2, (y*w*-1)°2,z*w°-lx*zew, 

wo -2*eh,x*y*x*yx*xw —-1,xX*Z*x*zZ*h,t 72, (t,x), (y*t) 73, 
(zxwet) 70, (z*x*t) 70, (y*xxt) 76, (y*xx*zxt) ~3>; 
£,G1,k:=CosetAction (G, sub<G|x,y,Z,w,h>) ; 
#DoubleCosets (G, sub<G|x,y,z,w,h>, sub<G|x,y,z,w,h>) ; 
prodim := function(pt, Q, I) 

/x* 

Return the image of pt under permutations Q[T] 
applied sequentially. 

x / 

Vi=pt; 

for i in I do 

viev’ (OTi]);3 
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end for; 

return v; 

end function; 

W, phi:=WordGroup (G1) ; 

rho:=InverseWordMap (G1) ; 

IN:=sub<Gl/f(x),f(y),f£(z),f(w),f(h)>; 
] 


ts := [ Id(Gl): iin [1 .. 16] : 
ts[1]:=f(t); 

ts[2]:=f(t’y); 

ts[3]:=f(t*z); 

ts[4]:=f(t*w); 

ts[5]:=f (th); 

ts[6]:=£(t*(y * w)); 
ts[7]:=£(t*(z * x)); 
ts[8]:=f(t* (y * x)); 
ts[9]:=f(t > (y * z)); 

Pe PhO te 2 (ey ks te) gy 

Le LLL PeSE (i te yk ee yy 
ts[12]:=f (t* (z*w) ); 
ts[13]:=f (t* (y*zx*x)); 
ts[14]:=f (t* (x*w*-1)); 
ts[15]:=f(t* (z*w*-1)); 

ts[1l6]:=f (t* (y*z*w°-1)); 

ts; 

est:= [null : iin [1 .. 24]] 
where null is[Integers() |]; 
for 1 := 1 to 16 do 

cst [prodim(l1, ts, [1])]:=[1]; 
end for; 


m:=0; for iin [1..24] do if cst[i] ne [] then m:=m+1; 
end if; end for; m; 

For as an» Pla ~24] do: ty, sest [2] 7 end tor; 
N1:=Stabiliser(N,1); 


Nlis:=N1; 
SSS:={[1]}; SSS:=SSS°N; 
# (SSS) ; 


Seqq:=Setseq(SSS) ; 

for i in [1..#SSS] do 

for n in IN do 

if ts[1] eq nxts[Rep(Seqq[i]) [l]]then print Rep(Seqq[i]); 
end if; end for; end for; 

Tl:=Transversal (N,NI1s); 

for £ in. [ls.4Tl]) do 

ss:=[1]°T1[il; 


cst [prodim(l1, ts, 


end for; 


m:=0; for iin [l. 


end if; end for; 
Orbits (Nl1s); 

for m,n in IN do 
end if;end for; 
for m,n in IN do 
end if;end for; 
for m,n in IN do 
end if;end for; 
for m,n in IN do 
end if;end for; 
for m,n in IN do 
end if;end for; 
for m,n in IN do 
end if;end for; 
for m,n in IN do 
end if;end for; 
for m,n in IN do 
end if;end for; 
for m,n in IN do 
end if;end for; 
#N/#N1; 

#N/#N18S; 

#N1s; 

Nls; 


Orbits(Nl1s); 


m:=N! (1, 2) (3, 9) (4, 
n:=N! (2, 8) (3, 7) (4, 


[1] *n; 


for a. an. [1a 32] 


end if; end for; 


ss)] := ss; 
24] 
mM; 
LE tS [lets 
if ts[l]«ts[1 
if ts[l]*«ts[1 
if ts[l]*ts[ 
if ts[1l]*ts[ 
if ts[l]*ts[ 
if ts[l]*ts[ 
if ts[l]*ts[ 
if ts[1l]*ts[ 


[5] 


2] 


5] 


dos 2k est [a] 


eq 


ne []then m:=mt1; 


mx (ts[1])“n then m,n; 


eq m«x(ts[1])*n then m,n; 


eq m«(ts[1])*n then m,n; 


mx (ts )*n then m,n; 
mx (ts )*n then m,n; 
mx (ts )*n then m,n; 
mx (ts )*n then m,n; 
mx (ts[1])“n then m,n; 


eq m«(ts[1])°n then m,n; 


8) (5, 10) (14, 
14) (9, 13) (6, 


ts[l]«*ts[2] eq f(y)*ts[1]; 


for m,n in IN do 
end if;end for; 


m:=N! (1, 6) (2, 4) (3, 
n:=N! (2, 8) (3, 7) (4, 


[1] “n; 


if t 


fer a. an [4.32] 


end if; end for; 


do if ArrayP[1i] 


13) (5, 8) (14, 
14) (9, 13) (6, 


ts[l]x«ts[6] eq f(yxw)*ts[1]; 
for m,n in IN do if ts[l]*«ts[9] 


end if;end for; 


do if ArrayP[1i] 


eq 


6) (7, 11) (12, 16) (15, 13); 
10) (16, 11); 


eq m then Sch[il]; 


mx (ts[1])“n then m,n; 


10) (9, 12) (7, 16) (15, 11); 
10) (16, 11); 


eq m then Sch[i]; 


mx (ts[1])“n then m,n; 
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MNCL, Ley 4) “9-55 -13% Way Ady2y 37-63, 125. V0e Ox By -15)4 
n:=N! (1, 14) (2, 10) (3, 12) (4, 5) (7, 15) (16, 13); 
[ly ny 
for iin [1 .. 32] do if ArrayP[i] eq m then Sch[i]; 
end if; end for; 
ts[l]*«ts[9] eq f£(yx*x*z)«ts[14]; 
for m,n in IN do if ts[l]*ts[11] eq m*(ts[1])°n then m,n; 
end if;end for; 
MeN! C1, PS 4p tht by 63 24, 9) 25. 7 65-155) 10. By 8p 2) 
n:=N! (1, 14) (2, 10) (3, 12) (4, 5) (7, 15) (16, 13); 
[1] *n; 
for iin [1 .. 32] do if ArrayP[i] eq m then Sch[il]; 
end if; end for; 
ts[l]*ts[11] eq f(y*«zxx)xts[14]; 
for n in IN do if ts[1l]*ts[15] eq nxts[1l]*ts[12]then n; 
end if; end for; 
for n in IN do if ts[1] 
end if; end for; 
for n in IN do if ts[1l]*ts[3] eq nets[1l]«*«ts[12]then n; 
end if; end for; 
N15:=Stabiliser(N, [1,5]); 
N15s:=N15; 
S:={[1,5]}; 
SS:=S°N; 
SSS:=Setseq(SS); 
for i in [1..#SS] do 
for g in IN do 
if ts[l]*ts[5Jeq g*xts[Rep(SSS[1i]) [1] ]*ts[Rep(SSS[i]) [2]] 
then print SSS[i]; 
d if; end for; end for; 
rg in N do if [1,5]°g eq [2,10] then N15s:=sub<N|N15s,g9>; 
d if; end for; 
rginN do if [1,5]*g eq [3,7] then N15s:=sub<N|N15s,g9>; 
d if; end for; 
rg in N do if [1,5]°g eq [4,14] then N15s:=sub<N|N15s,g9>; 
d if; end for; 
for g in N do if [1,5]*g eq [14,4] then N15s:=sub<N|N15s,g9>; 
d 
r 
d 
ia 
d 
Fr 
d 


* 


* 


ts[15] eq nxts[1l]*ts[3]then n; 


end if; end for; 
for g in N do if [1,5]*g eq [5,1] then N15s:=sub<N|N15s,9>; 
end if; end for; 
for g in N do if [1,5]*g eq [8,6] then N15s:=sub<N|N15s,9>; 


if; end for; 
g in N do if [1,5]*g eq [9,11] then N15s:=sub<N|N15s,g9>; 
if; end for; 


N do if 
end for; 
N do if 
end for; 
N do if 
end for; 
N do if 
end for; 


for g in 
Tf 
g in 
ask ¢ 
g in 
ak 3 
g in 
end if; 
#N15s; 
N15s; 
#N/#N15; 
#N/#N158; 
T:=Transversal(N,N15s); 
fOr a: 1 to #T do 
ss [ele] els! [bale a 
cst [prodim(l, ts, 
end for; 
m:=0; for iin [l.. 
end if; end for;m; 
Orbits (N15s); 

rl] 


eq 


eq 


eq 


d 
ir 
end 
ag 
d 
i 


eq 


ss) ] 


ts[l]«ts 


ts[l]«ts 


ts[l]«ts[ 


ts[ 
ts[l]«ts[5] 
N112:=Stabiliser ( 
N112s:=N112; 
S:={[1,12]}; 
SS:=S°N; 
SSS:=Setseq(SS) ; 
for i in [1..#SS] 
for g in IN do 


ts[l 


|* 
|* 
|* 
|* 


’ 


do 


if ts[l]*ts[12] eq gxts[Rep(SSS[i]) [1]]«ts 
then print SSS[i]l; 

end if; end for; end for; 

for g in N do if [1,12]*g eq [3,4] 
end if; end for; 

for g in N do if [1,12]*g eq [5,15] 
end if; end for; 

for g in N do if [1,12]°g eq [7,14] 
end if; end for; 

#N112s; 

N112s; 

#N/#N112; 
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then N15s:=sub<N|N15s,g>; 


then N15s:=sub<N|N15s,g>; 


then N15s:=sub<N|N15s,g9>; 


then N15s:=sub<N|N15s,g9>; 


[] 


then m:=m+1; 


Rep (SSS[i]) [2]] 


then N112s:=sub<N|N112s,9>; 


then N112s:=sub<N|N112s,g9>; 


then N112s:=sub<N|N112s,9>; 
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#N/#N1128; 

T:=Transversal (N,N112s); 

for i := 1 to #T do 

ss := [1,12]°T[il; 

cst [prodim(l1, ts, ss)] := ss; 
end for; 
m:=0; for iin [1..24] do if cst[i] ne [] then m:=m+1; 
if; end for;m; 
n in IN do if ts[1l]xts[12] eq nx«xts[3]xts[4] then n,; 
if; end for; 
n in IN do if ts[1l]*ts[12] eq nx«xts[5]xts[15] then n; 
end if; end for; 
Orbits (N112s); 
for n in IN do if ts[l]*ts[12] eq nxts[7]*ts[14] then n; 

end if; end for; 

m:=N! (1, 5) (2, 10) (3, 7) (4, 14) (8, 6) (9, 11) (12, 15) (16, 13); 
for iin [1 .. 32] do if ArrayP[i] eq m then Sch[il]; 

end if; end for; 


d 
x 
d 
x 


ts[l]*«ts[12] eq f(h)«*«ts[3]«*ts[4]; 
ts[l]*ts[12] eq f(h)+*ts[7]«ts[14]; 
ts[l]*ts[12] eq ts[5]x«ts[15]; 
N14:=Stabiliser(N, [1,4]); 
N14s:=N14; 

S:={[1,4]}; 

SS:=S°N; 


SSS:=Setseq(SS) ; 

for i in [1..#SS] do 

for g in IN do 

if ts[l]*ts[4Jeq g*xts[Rep(SSS[1i]) [1] ]*ts[Rep(SSS[i]) [2]] 

then print SSS[i]l; 
d if; end for; end 
Poa On. [lav 24] dow 
d if; end for; m; 
rginN do if [1,4]°g eq [2,8] then N14s:=sub<N|N14s,9q>; 
d if; end for; 
rg in WN do if [1,4]°g eq [3,12] then N14s:=sub<N|N14s,9>; 

end if; end for; 
ia 
d 
18 
d 
r 
d 


Or; 
est[i] ne [] then m:=m+1; 


g in N do if [1,4]*g eq [4,5] then N14s:=sub<N|N14s,9>; 
if; end for; 
g in N do if [1,4]°g eq [5,14] then N14s:=sub<N|N14s,9>; 
if; end for; 
g in N do if [1,4]°g eq [9,16] then N14s:=sub<N|N14s,9>; 
if; end for; 
for g in N do if [1,4]°g eq [6,2] then N14s:=sub<N|N14s,9>; 


S,97; 


S,97; 


end if; end for; 

for g in N do if [1,4]°g eq [10,6] then N14s:=sub<N|N14s,9>; 
end if; end for; 

for g in N do if [1,4]°g eq [12,7] then N14s:=sub<N|N14s,9>; 
end if; end for; 

for g in N do if [1,4]°g eq [7,15] then N14s:=sub<N|N14s,9>; 
end if; end for; 

for g in N do if [1,4]°g eq [8,10] then N14s:=sub<N|N14s,9>; 
end if; end for; 

for g in N do if [1,4]°g eq [14,1] then N14s:=sub<N|N14s,9>; 
end if; end for; 

for g in N do if [1,4]°g eq [13,9] then N14s:=sub<N|N14s,9>; 
end if; end for; 

for g in N do if [1,4]°g eq [11,13] then N14s:=sub<N|N14 
end if; end for; 

for g in N do if [1,4]°g eq [16,11] then N14s:=sub<N|N14 
end if; end for; 

for g in N do if [1,4]*g eq [5,3] then N14s:=sub<N|N14s,9>; 
end if; end for; 

#N14s; 

#N/#N14; 

#N/#N143; 

T14:=Transversal (N,N14s); 

#714; 

for i := 1 to #T14 do 

ss := [1,4]°T14[i]; 

cst[prodim(l, ts, ss)] := ss; 

end for; 

m:=0; 


Orbits (N14s); 

ts[l]*«ts[4] eq ts[4]*ts[5]; 
ts[l]*«ts[4] eq ts[5]*ts[14] 
ts[l]x«ts[4] eq ts[14]*ts[1]; 
for n in IN do if ts[ [4] eq n«xts[2]xts[8] then n; 
end if; end for; 
MeSNi (45 By - 4) 2, Gy. 10y. 8) (3° 12,5. 7, LS) C9) 13; 2; 


for iin [1 .. 32] do if ArrayP[i] eq m then Sch[il]; 
end if; end for; 

ts[l]xts[4] eq f(w)x*«ts[2]x«ts[8]; 

ts[l]xts[4] eq f(w)x«ts[6]«ts[2]; 

ts[l]xts[4] eq f(w)*ts[10]«ts[6]; 

ts[l]xts[4] eq f(w)*ts[8]«ts[10]; 


16); 
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B.3 2*4: As over 2? 


S:=Sym (4); 
xx:=S! (1,2) (3,4); 
yy:=S! (1,3) (2,4); 
N:=Ssub<S|xx,yy>; 
#N; 
G<x,y,t>:=Group<x,y,t|x72,y°2,xx*y°-l«x*y,t°2, (y*t) 73, 
(x*t) 75, (x*xy*t) 75>; 
#G; 
£,G1,k:=CosetAction (G, sub<G|x,y>); 
#k; 
#DoubleCosets (G, sub<G|x, y>, sub<G|x,y>); 
IN:=sub<G1|f(x),f(y)>; 
CompositionFactors (Gl); 
Set (N); 
G<x, y,t>:=Group<x,y,t|x°2,y°2,x*y° —-1l*x*y,t°2, (y*«t) °3, 
(x*t) 75, (x*xy*t) 75>; 
#G; 
NN<x, y>:=Group<x, y|x°2,y°2,x*y° -1*x«*y>; 
Sch:=SchreierSystem (NN, sub<NN|Id (NN) >); 
ArrayP:=[Id(N): i in [1..4]]; 
for iin [2..4] do 

:=[Id(N): l in [1..#Sch[i]]]; 


for j in [1..#Sch[i]] do 

if Eltseq(Sch[i J) 3] eq 1 then P[j]:=xx; end if; 

if Eltseq(Sch[i])[j] eq -1 then P[j]:=xx*-1; end if; 
if Eltseq(Sch[i])[j] eq 2 then P[j]:=yy; end if; 

if Eltseq(Sch[i])[j] eq -2 then P[j]:=yy*-1; end if; 
end for; 

PP:=Id(N); 

for k in [1..#P] do 

PP:=PPx*P[k]; pee Lor; 

ArrayP[1i]:=PP; 

end for; 


G<x,y,t>:=Group<x,y,t|x*2,y°2,xx*y°-l*x*y,t°2, (y*t) 73, 
(x*t) 75, (x*xy*t) 75>; 
£,G1,k:=CosetAction (G, sub<G|x,y>); 
#DoubleCosets (G, sub<G|x, y>, sub<G|x,y>); 

prodim := function(pt, Q, I) 

/x* 

Return the image of pt under permutations Q[T] 
applied sequentially. 

* / 


Vi=pt; 

for i in I do 

vi=v" (O[1]); 

end for; 

return v; 

end function; 
W,phi:=WordGroup (G1); 
rho:=InverseWordMap (G1); 
IN:=sub<G1|f(x),f(y)>; 


ts := [ Id(Gl): i in [1 .. 4] ]; 
ts[1l]:=f£(t); 

ts[2]:=f(t*x); 

ES S1S=2 (a y)7 

Ls [4] 3=£ (G" (xsy))7 

ts; 

est:= [null : iin [1 .. 15]] 
where null is[Integers() |]; 
for i := 1 to 4 do 

cst [prodim(l1, ts, [1])]:=[1]; 
end for; 


m:=0; for iin [1..15] do if cst[i] ne [] then m:=m+1; 


end if; end for; m; 
fora any [deesh5] .do,-5., 4st as) send for; 
N1:=Stabiliser(N,1); 


Nlis:=N1; 
SSS:={[1]}; SSS:=SSS°N; 
# (SSS) ; 


Seqq:=Setseq(SSS) ; 
for i in [1..#SSS] do 
for nan, IN-do 


if ts[1] eq nxts[Rep(Seqq[i]) [l]]then print Rep(Seqq[i]); 


end if; end for; end for; 

Tl:=Transversal (N,NI1s); 

for a Ah Lec TL] do 

ss:=[1]°T1[il; 

cst[prodim(l, ts, ss)] := ss; 

end for; 

m:=0; for iin [1..15] do if cst[i] ne []then m:=mt1; 
end if; end for; m; 

Orbits (Nl1s); 


for m,n in IN do if ts[l]*ts[2] eq m*(ts[1])°n then m,n; 


end if;end for; 


for m,n in IN do if ts[1l]*ts[3] eq m*«(ts[1])°n then m,n; 


end if;end for; 
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for m,n in IN do if ts[l]*ts[4] 
end if;end for; 

#N/#N1; 

#N/#N18S; 

#N1s; 

Nls; 

N12:=Stabiliser(N, [1,2]); 
N12s:=N12; 
S:={[1,2]}; 
SS:=S°N; 
SSS:=Setseq(SS) ; 
for i in [1..#SS] 
for g in IN do 


do 
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eq m*«(ts[1])*n then m,n; 


if ts[l]*ts[2]eq g*xts[Rep(SSS[1i]) [1] ]*ts[Rep(SSS[i]) [2]] 


then print SSS[i]; 


end if; end for; end for; 
#N12s; 

N12s; 

#N/#N12; 

#N/#N123; 
T:=Transversal(N,N12s); 

for i := 1 to #T do 

ss := [1,2] °T[il; 

cst [prodim(l1, ts, ss)] := ss; 
end for; 

m:=0; for iin [1..15] do if cst 
end if; end for;m; 


Orbits (N12s); 
N14:=Stabiliser(N, [1 
N14s:=N14; 
S:={[1,4]}; 
SS:=S°N; 
SSS:=Setseq(SS) ; 
for i in [1..#SS] 
for g in IN do 


do 


ne [] then m:=mt+1; 


if ts[l]*ts[4Jeq g*xts[Rep(SSS[1i]) [1] ]*ts[Rep(SSS[i]) [2]] 


then print SSS[i]; 

end if; end for; end for; 
#N14s; 

N14s; 

#N/#N14; 

#N/#N143; 

T:=Transversal (N,N14s); 


for i := 1to #T do 


ss := [1,4] °Tlil; 

cst[prodim(l1, ts, ss)] := ss; 

end for; 

m:=0; for iin [1..15] do if cst[i] ne [] 
end if; end for;m; 

Orbits (N14s); 
N123:=Stabiliser (N, [1,2,3]); 
N123s:=N123; 

S:={[1,2,3]}; 

SS:=S°N; 

SSS:=Setseq(SS) ; 

for i in [1..#SS] do 

for g in IN do if ts[l]*ts[2]«ts[3]leq 


gxts[Rep(SSS[i]) [1] ]*ts[Rep(SSS[1]) [2] ]«ts[Rep(SSS[1i]) [3]] 


then print SSS[i]; 
end if; end for; end for; 


for g in N do if [1,2,3]°g eq [2,1,4] then N123s: 


sub<N|N123s,9>; 
end if; end for; 


for g in N do if [1,2,3]°g eq [3,4,1] then N123s: 


sub<N|N123s,9>; 
end if; end for; 


for g in N do if [1,2,3]°g eq [4,3,2] then N123s: 


sub<N|N123s,9>; 
end if; end for; 


#N1238s; 

N123s; 

#N/#N1238; 

T:=Transversal (N,N123s); 

for i := 1 to #T do 

ss := [1,2,3]°T[il; 
cst[prodim(l1, ts, ss)] := ss; 
end for; 


m:=0; for iin [1..15] do if cst[i] ne [] 
end if; end for;m; 

Orbits (N123s); 

N143:=Stabiliser(N, [1,4,3]); 

N143s:=N143; 

S:={[(1,4,3]}; 

SS:=S°N; 

SSS:=Setseq(SS); 

for i in [1..#SS] do 


for> for g in IN do if ts[1]x«ts[4]*ts[3leq 
gxts[Rep(SSS[i]) [1] ]*ts[Rep(SSS[1]) [2] ]*ts[Rep(SSS[1i]) [3]] 


then m:=m+1; 


then m:=m+1; 
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then print SSS[i]; 

end if; end for; end for; 

for g in N do if [1,4,3]°9g eq [2,3,4] then 
N143s:=sub<N|N143s,g>; end if; end for; 
for g in N do if [1,4,3]°9 eq [3,2,1] then 
N143s:=sub<N|N143s,g>;end if; end for; 
for g in N do if [1,4,3]°g eq [4,1,2] then 
N143s:=sub<N|N143s,g>; end if; end for; 


#N143s; 

N143s; 

#N/#N1438; 

T:=Transversal (N,N143s); 

for i := 1 to #T do 

ss := [1,4,3]°T[il]; 

cst[prodim(l1, ts, ss)] := ss; 

end for; 

m:=0; for iin [1..15] do if cst[i] ne [] then m:=m+1; 
end if; end for;m; 

Orbits (N143s); 

for m,n in IN do if ts[1l]x«ts[2]*ts[4] eg 
m*x(ts[l]«ts[4])*n then m,n;end if;end for; 
for m,n in IN do if ts[1l]x«ts[2]*ts[3] eg 
mx(ts[l]«ts[4])*n then m,nj;end if;end for; 
for m,n in IN do if ts[1l]x«*ts[2]*ts[1] eg 
m*(ts[1])*n then m,n;end if;end for; 

for m,n in IN do if ts[1]x*ts[4]*ts[2] eg 
m*x(ts[l]«*«ts[2])*n then m,n; 

end if;end for; 

for m,n in IN do if ts[1l]x«ts[4]*ts[3] eg 


mx(ts[l]«ts[2])*n then m,n; 
end if;end for; 
for m,n in IN do if ts[1l]x«ts[4]*ts[1] eg 
m*(ts[1])*n then m,n;end if;end for; 


B.4 So over (2 x 4): 2 


fe) 


& from here we will factor S6 by NL[4]=32 to decrease 
the number of DCE % 


S:=Sym(16); 

Reo, 80 Cay Tay 24) Gey 20) 195 1S) Gol 16) 5 

yy:=S!(1, 2) (3, 9) (4, 8) (5, 10) (6, 14) (7, 11) (12, 16) (13, 15); 
zz:=S!(1, 3) (2, 9) (4, 12) (5, 7) (6, 13) (8, 16) (10, 11) (14, 15); 
Wwe Sd Ay by “WAV AD) Ge 10, BS 105. Tp 1S) 9). 1S ay 16): 


hh:=S! (1, 5) (2, 10) (3, 7) (4, 14) (6, 8) (9, 11) (12, 15) (13, 
N:=Sub<S|xx, yy, zz,ww,hh>; 

#N; 
G<x,y,Z,w,h,t>:=Group<x,y,Z,w,h,t|x°2,y°2,z°2,w 4, 
h*2, (y*z) °2, (x*w*-1)°2, (y*w°-1) °2,z*w°-lezxw, 
wo -2*eh,x*y*x*yxw -1,xX*zZ*x*zZz*h,t 72, (t,x), (y*xt) “4, 
(zxwet) 73, (z*x*t) 70, (y*xxt) 76, (y*xx*zZxt) ~5>; 

#G; 

£,G1,k:=CosetAction (G, sub<G|x,y,Z,w,h>) ; 
£,G1,k:=CosetAction (G, sub<G|x,y,Z,w,h>) ; 
CompositionFactors (Gl); 
N:=G1; 

Sch:=SchreierSystem(G, sub<G|Id(G)>); 
ArrayP:=[Id(N): i in [1..#G]]; 

for i in [2..#G] do 
P:=[Id(N): 1 in [1..#Sch[i]]]; 

for j in [1..#Sch[i]] do 

if Eltseq(Sch[i])[j] eq 1 then P[Jj]:=f(x); end if; 
if Eltseq(Sch[i])[j] eq 2 then P[j]:=f(y); end if; 
if Eltseq(Sch[i])[j] eq 3 then P[j]:=f(z); end if; 
if Eltseq(Sch[i])[j] eq 4 then P[j]:=f(w); end if; 
if Eltseq(Sch[i])[j] eq -4 then [j] :=f(w)*-1; end if; 
if Eltseq(Sch[i])[j] eq 5 then P[j]:=f(h); end if; 
if Eltseq(Sch[i])[j] eq 6 then P[j]:=f(t); end if; 
end for; 
PP:=Id(N); 

for k in [1..#P] do 
PP:=PP*P[k]; end for; 
ArrayP[1i]:=PP; 

end for; 
NL:=NormalLattice (G1); 

L; 

for i in [1..#NL]do if IsAbelian(NL[i]) then i; 


end if;end for; 

#Generators (NL[4]); 

for j in [1..6] do 

for iin [1..#Sch] do if ArrayP[i] eq NL[4].j then Sch[i]; 
xdsssssssssend if; end for; end for; 
G<x,y,Z,w,h,t>:=Group<x,y,z,w,h,t|x°2,y°2,2°2, 


w°4,h°2, (y*z) “2, (x*w°-1)°2, (y*w*-1)°2,z*w°-lx*zew, 

wo -2*eh,x*xy*x*yxw —-1l, X*z*x*xzeh,t°2, (t,x), (y*xt) “4, (z*xwet) “3, 
(Z*xX*t) 70, (y*x*t) “6, (y*x*xzxt)°5,h,t *« h * t, 

Kx * t * wo-l * t * wo-l * t * wo-l,(z * t)°4, 


yreeet «het *« yp xe t * We t * wo-l * t>; 
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#G; 

£,G1,k:=CosetAction (G, sub<G|x,y,2Z,w,h>) ; 

#G1; 

#k; 

#Sub<G|x,y,Z,w,h>; 

CompositionFactors (Gl); 

#DoubleCosets (G, sub<G|w, x,y, z,h>, sub<G|w,x,y,z,h>); 
N:=sub<S|xx, yy, zz,ww,hh>; 

#N; 

N<x, VY, Z,wW>:=Group<x,y,Z,w|X°2,y°2,Z°2,w 2, (y*z) “2, 
(x*w°-1)°2, (y*w°-1)°2,z2*wW°-1L*zew,Wo-2, X*y*xX* yew -1,X*Z*X*Z>; 
#N; 

16 

H:=sub<N|x>; 

£,G1,k:=CosetAction(N,H); 

Gl; 
SStart from here DCE of G over the group N of order 16 % 


G<x,y,Z,w,t>:=Group<x,y,Z,w,t|x°2,y°2,z2°2,w 4, (y*z) “2, 
(x*w°-1)°2, (y*w°-1)°2,z*w>-lL«xzew, x*xy*xx*xyew -1,t°2, 
(t,x), (y*xt) “4, 

(zxwet) 73, (z*x*t) 70, (y*xx*t) 76, (y*x*zx*t) 75, 

x * t * wo-l * t * wo-l * t * wo-l, (z * t)°4>; 
#G; 

£,G1,k:=CosetAction (G, sub<G|x,y,Z,W>); 

#G1; 

#Sub<G|xX,y,Z,W>; 

CompositionFactors (Gl); 
#DoubleCosets (G, sub<G|w, x,y, Z>, Sub<G|W, x, Y,Z>); 
S:=Sym(8); 

xx:=S!(2, 5) (6, 8); 

yy:=S!(1, 2) (3, 6) (4, 5) (7, 8); 

zz:=S!(1, 3) (2, 6) (4, 7) (5, 8); 

ww:=S!(1, 4) (2, 5) (3, 7) (6, 8); 
N:=Sub<S|xx, Vy, ZZ, WWw>; 

#N; 

NN<x, Y, Z,W>:=Group<x,y,Z,W|X°2,y°2,Z°2,w 2, 
(y*z)°2, (x*xw°-1)°*2, (y*w*-1)°2, 

Z*W -1*z*w, Ww -2,X*y*xX*xyew —-1, X*Z*xX*Z>; 
Sch:=SchreierSystem (NN, sub<NN|Id (NN) >); 
ArrayP:=[Id(N): i in [1..16]]; 

for iin [2..16] do 

P:=[Id(N): 1 in [1..#Sch[i]]]; 

for j in [1..#Sch[i]] do 


if Eltseq(Sch[i]) [Jj] eq 1 then P 
if Eltsegq(Sch[i])[j3] eq -1 then 
if Eltseq(Sch[i])[j3] eq 2 then P 
if Eltseq(Sch[i]) [Jj] eq -2 then 
if Eltseq(Sch[i])[j] eq 3 then P 
if Eltseq(Sch[i]) [3] eq -3 then 
if Eltseq(Sch[i]) [Jj] eq 4 then P 
if Eltseq(Sch[i])[j3] eq -4 then 
end for; 

PP:=Id(N); 

for k in [1..#P] do 

PP:=PP*P[k]; end for; 
ArrayP[1i]:=PP; 

end for; 


OrPOHO HO - 


for iin [1..#N] do 1°ArrayP[i],Sch[i];end for; 


G<x,y,Z,wW,t>:=Group<x,y,Z,w,t|x°2,y°2,z°2,w 4, (y*z) “2, 
(x*w°-1)°2, (y*w°-1)°2,z*w°-lL*xzew, x*y*xxeyew-1,t°2, (t,x), 
(y*xt) “4, (zxwet) 73, (z*x*t) 70, (y*x*t) 6, (y*x*z*t) 75,x * t 


* wo-l *« t * wo-l * t * w-l, 
(z * t) 74>; 


£,G1,k:=CosetAction (G, sub<G|x,y,Z,W>); 


prodim := function(pt, Q, I) 
/x* 


Return the image of pt under permutations Q[T] 


applied sequentially. 

* / 

Vi=pt; 

for i in I do 

Wear (Olay 

end for; 

return v; 

end function; 
W,phi:=WordGroup (G1) ; 
rho:=InverseWordMap (G1); 
IN:=sub<G1l/f(x),f(y),£(z),£(w)>; 


ts := [ Id(Gl): i in [1 .. 8] ]; 
ts[l]:=f£(t); 

ES 2le-i(t yy); 
ts[3]:=f(t*°z);ts[4]:=f(t*w); 
ts[5]:=f(t* (y*x));ts[6] :=f(t 
ts[7]:=f£(t* (z*w));ts[8] :=f (t* (y*x*z) 
ts; 

est:= [null iin [1 45) ] 


where null is[Integers() |]; 
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for 1 := 1 to 8 do 
est prodim (1, tse;. (aj Js=(a9 
end for; 


m:=0; for iin [1..45] do if cst[i] ne [] then m:=m+1; 
end if; end for; m; 

for iin [1..45] do i, cst[i]; end for; 
N1:=Stabiliser(N,1); 

N1:=Stabiliser(N, [1]); 

S:={[1]}; 

SS:=S°N; 

SSS:=Setseq(SS) ; 

for i in [1..#SS] do 

for g in IN do 

if ts[1l] eq gx*xts[Rep(SSS[i]) [1l]]then print SSS[i]; 
end if; end for; end for; 


Nlis:=N1; 

#N1s; 

Tl:=Transversal(N,N1s); 

#T1; 

Tl:=Transversal (N,N1s); 

for i := 1 to #Tl do 

ss := [1]°T1[il; 
cst[prodim(l1, ts, ss)] := ss; 
end for; 


m:=0;for i in [1..45] do if cst[i] ne [] 
then m:=m+l; end if; end for; m; 


Tl:=Transversal (N,N1s); 

#T1; 

Tl:=Transversal (N,NI1s); 

for i := 1 to #Tl do 

ss := [1]°T1[il; 

cst [prodim(l1, ts, ss) ] = ss; 
end for; 


m:=0;for i in [1..45] do if cst[i] ne [] 
then m:=m+l; end if; end for; m; 
Orbits(Nl1s); 


for m,n in IN do if ts[1l]*ts[4] eq m«(ts[1])°n then m,n; 
end if;end for; 
for m,n in IN do if ts[l]*ts[2] eq m*«(ts[1])°n then m,n; 
end if;end for; 
for m,n in IN do if ts[1l]*ts[3] eq m*(ts[1])°n then m,n; 
end if;end for; 
for m, in IN do if ts[l]*ts[6] eq m*(ts[1])“n then m,n; 
d d 
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#N/#N18S; 
Nls; 


N12:=Stabiliser(N, [1,2]); 

N12s:=N12; 

S:={[1,2]}; 

SS:=S°N; 

SSS:=Setseq(SS) ; 

for i in [1..#SS] do 

for g in IN do 

if ts[l]*ts[2Jeq g*xts[Rep(SSS[1i]) [1] ]*ts[Rep(SSS[i]) [2]] 
then print SSS[i]; 

end if; end for; end for; 

#N12s; 

N12s; 

for g in N do if [1,2]*g eq [2,1] then N12s:=sub<N|N12s,9>; 
end if; end for; 


#N/#N1238; 

T:=Transversal (N,N12s); 

for i := 1 to #T do 

ss := [1,2] °T[il; 
cst[prodim(l1, ts, ss)] := ss; 
end for; 


m:=0; for iin [1..45] do if cst[i] ne [] then m:=m+1; 

end if; end for;m; 

Orbits (N12s); 

for m,n in IN do if ts[l]*ts[2]*ts[2] eq m«(ts[1])7n 

then m,n; 

end if;end for; 

for m,n in IN do if ts[l]«*ts[2]*ts[4] eq m«(ts[l]*ts[2])7n 
then m,n; 

end if;end for; 

for m,n in IN do if ts[l]*ts[2]*ts[7] eq m«(ts[1l]*ts[6])n 
then m,n; 

end if;end for; 

ts[l]*ts[2]*ts[2] eq ts[1]; 

for m,n in IN do if ts[l]«*ts[2]*ts[3] eq m«(ts[l]*ts[2])*n 
then m,n; 

end if; end for; 


N13:=Stabiliser(N, [1,3]); 
N13s:=N13; 
S:={[1,3]}; 


SS:=S°N; 
SSS:=Setseq (SS); 
for i in [1..#SS] 
for g in IN do 


do 


if ts[l]*ts[3Jeq g*xts[Rep(SSS[1i]) [1] ]*ts[Rep(SSS[i]}) 


then print SSS[i]l; 
if; end for; end 
g in N do if [1 
if; end for; 
g in N do if [1 
if; end for; 
g in N do if [1 
end if; end for; 
N13s; 

# N13s; 

#N/#N138; 
T:=Transversal(N,N13s); 
1 to #T do 

Pi ged2 lady 
cst [prodim(l, ts, 
end for; 

m:=0; for iin [1l. 
end if; end for;m; 


ELOY; 
“g eq 


pel-s-eq 


d 
aa 
end 
a 
d 
ag 


,3]°9 eq 


for 1 := 
ss i= 
ss) ] = ss; 


45] 


Orbits (N13s); 

IN do if 
])°n then m,n;end if; 
in IN do if 
l]J*ts[2])7n then m,n; 
end for; 


for m,n in 

mx* (ts[1 
for m,n 
mx (ts[] 
end if; 
#N13s; 


N16:=Stabiliser(N, [1,6]); 
N16s:=N16; 
S:={[1,6]}; 
SS:=S°N; 
SSS:=Setseq(SS); 
for i in [1..#SS] 
for g in IN do 


do 


[3,1] 


[4,7] 


Lope 


do if cst[i] 


ts[l]*«ts[3]«ts[1] 


ts[l]«ts[3]«ts[2] 
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then N13s:=sub<N|N13s,9>; 


then N13s:=sub<N|N13s,9>; 


then N13s:=sub<N|N13s,9>; 


ne 


— 


] then m:=mt+1; 


eq 
end for;m; 


eq 


if ts[l]*ts[6Jeq g*xts[Rep(SSS[1i]) [1] ]*ts[Rep(SSS[i]) [2]] 


then print SSS[i]l; 

end if; end for; end for; 
#N16s; 

#N/#N168; 


T:=Transversal (N,N16s); 

for i := 1 to #T do 

ss := [1,6]°T[il]; 

cst[prodim(l1, ts, ss)] := ss; 

end for; 

m:=0; for iin [1..45] do if cst[i] ne [] 
end if; end for;m; 

Orbits (N16s); 

for m,n in IN do if ts[1]x«ts[6]*ts[6] eg 
m*(ts[1])*n then m,n;end if;end for; 

for m,n in IN do if ts[1l]x«ts[6]*ts[1] eg 
mx(ts[l]«ts[3]*«ts[2])“n then m,n; 

end if;end for; 
for m,n in IN do if ts[1l]xts[6]*ts[2] eg 
mx (ts[l]«ts[2]*ts[3])“n then m,n; 
end if;end for; 
for m,n in IN do if ts[1l]x«ts[6]*ts[3] eg 
mx (ts[l]«ts[3]*«ts[2])“n then m,n; 
end if;end for; 
for m,n in IN do if ts[1l]x«ts[6]*ts[4] eg 
mx (ts[l]«*«ts[6])*n then m,n; 

end if;end for; 

for m,n in IN do if ts[1l]x«ts[6]*ts[5] eg 
mx(ts[l]«ts[2])*“n then m,n; 

end if;end for; 

for m,n in IN do if ts[1]*ts[6]*ts[7] eg 
mx (ts[l]«ts[6])*n then m,n; 
end if;end for; 
for m,n in IN do if ts[1]x«ts[6]*ts[8] eg 
mx (ts[1l]«ts[6])*n then m,n; 

end if;end for; 

for iin [1 .. 16] do if ArrayP[i] eq 

N! (2,5) (6,8) then Sch[i]; end if;end for; 
ts[l]*«ts[6]*ts[8] eq f(x)xts[1l]*ts[6]; 
N123:=Stabiliser(N, [1,2,3]); 

N123s:=N123; 

S2={ [2727-31453 

SS:=S°N; 

SSS:=Setseq (SS); 

for i in [1..#SS] do 

for g in IN do if ts[1l]*ts[2]«ts[3]leq 
g*ts[Rep(SSS[1i]) [1] ]*ts[Rep(SSS[i]) [2]]* 
ts[Rep(SSS[i]) [3]]then print SSS[i]; 

end if; end for; end for; 


then m:=m+1; 
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for g in N do if [1,2,3]°g eq [2,1,6] then 


N123s:=sub<N|N123s,g>;end if; end for; 


N123s:=sub<N|N123s,g>;end if; end for; 


N123s:=sub<N|N123s,g>;end if; end for; 


#N123s; 

N123s; 

#N/#N1238; 

T:=Transversal (N,N123s); 

for i := 1 to #T do 

Se.sS UT 2 3"TLa)-4 
cst[prodim(l, ts, ss)] := ss; 
end for; 


m:=0; for iin [1..45] do if cst[i] ne 
end if; end for;m; 
Orbits (N123s); 


for g in N do if [1,2,3]°g eq [7,8,4] then 


for g in N do if [1,2,3]*g eq [8,7,5] then 


[] 


then m:=m+1; 


for m,n in IN do if ts[1l]«ts[2]*ts[3]*ts[1] eq 


mx(ts[l]«ts[6])*n then m,n; 
end if;end for; 


for m,n in IN do if ts[1l]«ts[2]*ts[3]*ts[3] eq 


mx(ts[l]«ts[2])*n then m,n; 
end if;end for; 
ts[l]«ts[2]«*«ts[3]*ts[3] eq ts[1l]*ts[2]; 


N132:=Stabiliser(N, [1,3,2]); 
N132s:=N132; 

S:={[1,3,2]}; 

SS:=S°N; 

SSS:=Setseq(SS) ; 

for i in [1..#SS] do 

for g in IN do if ts[l]*ts[3]«ts[2]leq 


gxts[Rep(SSS[i]) [1] ]*ts[Rep(SSS[1]) [2] ]«ts[Rep(SSS[1i]) [3]] 


then print SSS[i]; 
end if; end for; end for; 


for g in N do if [1,3,2]*g eq [3,1,6] then 


N132s:=sub<N|N132s,g>;end if; end for; 


for g in N do if [1,3,2]*g eq [4,7,2] then 


N132s:=sub<N|N132s,g>;end if; end for; 


for g in N do if [1,3,2]°g eq [7,4,6] then 


N132s:=sub<N|N132s,g>;end if; end for; 
#N132s; 

#N/#N1328; 

T:=Transversal (N,N132s); 
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for i := 1 to #T do 

Ssos= l3p21 TL pels 

cst[prodim(l, ts, ss)] := ss; 

end for; 

m:=0; for iin [1..45] do if cst[i] ne [] then m:=m+1; 
end if; end for;m; 

Orbits (N132s); 

for m,n in IN do if ts[1l]«ts[3]*ts[2]*ts[2] eq 
mx (ts[l]*«ts[3])*n then m,nj;end if;end for; 
ts[l]«ts[3]«*«ts[2]*ts[2] eq ts[l]*ts[3]; 

for m,n in IN do if ts[1l]«ts[3]*ts[2]*ts[5] eq 
m*(ts[l]«ts[3]*«ts[2])“n then m,n; 

end if;end for; 

for m,n in IN do if ts[1l]«ts[3]*ts[2]*ts[1] eq 

mx (ts[1]*ts[6])*n then m,n; 

end if;end for; 

N161:=Stabiliser(N, [1,6,1]); 

N161s:=N161; 

S: (126.5 2) bs 

SS:=S°N; 

SSS:=Setseq(SS) ; 

for i in [1..#SS] do 

for g in IN do if ts[l]*ts[6]«ts[lleqg 


gxts[Rep(SSS[i]) [1] ]*ts[Rep(SSS[1]) [2] ]«*ts[Rep(SSS[1i]) [3]] 
then print SSS[i]; 

end if; end for; end for; 

for g in N do if [1,6,1]°g eq [2,3,2] then 
N161s:=sub<N|N161s,g>;end if; end for; 
for g in N do if [1,6,1]°g eq [3,2,3] then 
N161s:=sub<N|N161s,g>;end if; end for; 
for g in N do if [1,6,1]°g eq [4,8,4] then 
N161s:=sub<N|N161s,g>;end if; end for; 

for g in N do if [1,6,1]°g eq [6,1,6] then 
N161s:=sub<N|N161s,g>;end if; end for; 

for g in N do if [1,6,1]°g eq [5,7,5] then 
N161s:=sub<N|N161s,g>;end if; end for; 
for g in N do if [1,6,1]°g eq [7,5,7] then 
N161s:=sub<N|N161s,g>;end if; end for; 

for g in N do if [1,6,1]*g eq [8,4,8] then 
N161s:=sub<N|N161s,g>;end if; end for; 
#N1618s; 

N161s; 

#N/#N1618; 


T:=Transversal (N,N161s); 


fOr 1 SS 10 BO: $T 
ss := [1,6,1]°T[i 
cst [prodim(l1, ts 


end for; 
m=O; for 2. “ine «ff 


do 
ijl; 
, ss)] := ss; 


1..45] do if cst[i] ne [] then m:=mt1; 


end if; end for;m; 


Orbits (N161s); 
for m,n in IN do 
*n then m,n; 

end if;end for; 
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if ts[l]*ts[6]«*ts[l]xts[1] eq mx«(ts[1]*ts[6]) 


B.5 24: Ss x S3 over S3 x $3 


G<x,y,Z,w,t>:=Group<x,y,Z,w,t|x°3,y°2,Z2°2,w 3,x° -1L*ey*xxy, 


(x°-1l*z) 72, (y*z) 


(t,y), (t,x * Zz), ( (x * w)*t) 4, ((z * w)*t) 76, ((x * y)*t)°4, 


“2, (X,W), (y*wo-1) 72, z*w°-l*zew,t°2, 


((x * y * wo-l)*t)*6>; 
Index (G, sub<G|x,y,Z,W>) ; 
f, Gl, k:=CosetAction(G, sub<G|x,y,Z,W>) ; 


#k; 
CompositionFacto 
S:=Sym(9); 
xx:=S! (1, 2, 9) 
yy:=S! (3, 6) (4, 
zz:=S! (1, 2) (4, 
ww:=S!(1, 4, 7) ( 
N:=Sub<S|xx,yy,Z 
#N; 
NN<xX, Y, Z, W>:=Gro 


(x°-1l*z) 72, (y*z) 
Sch:=SchreierSys 
Sch:=SchreierSys 
ArrayP:=[Id(N): 


rs(Gl); 


(3, 4, 5) (6, 7, 8); 
7) (S, 8); 

5) (7, 8)F 
2, S, 8) (3, 6, 9); 
Z,WWwW>; 


up<x,V,Z,W|xX°3,y°2,Z2°2,W 3,x° -1Lx*y*x*y, 
“2, (X,W), (yxw°-1) 72, zZ*Ww°-1L*ezxw>; 


tem (NN, sub<NN|Id(NN) >); 
tem (NN, sub<NN|Id(NN) >); 


a SEY Paes. 6) i|-2 


for i in [2..36] do 

P:=[Id(N): 1 in [1..#Sch[i]]]; 

for j in [1..#Sch[i]] do 

if Eltseq(Sch[i])[j] eq 1 then P[Jj]:=xx; end if; 

if Eltseq(Sch[i])[j] eq -1 then P[Jj]:=xx*-1; end if; 
if Eltseq(Sch[i])[j] eq 2 then P[j]:=yy; end if; 

if Eltseq(Sch[i])[j] eq 3 then P[j]:=zz; end if; 

if Eltseq(Sch[i])[j] eq 4 then P[Jj]:=ww; end if; 

end for; 

PP:=Id(N); 
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for k in [1..#P] do 
PP:=PP*xP[k]; end for; 
ArrayP[1i]:=PP; 

end for; 


for iin [1..#N] do 1°ArrayP[i],Sch[i];end for; 


£,G1,k:=CosetAction (G, sub<G|x,y,Z,W>); 
prodim := function(pt, Q, I) 
/x* 
Return the image of pt under permutations Q[T] 
applied sequentially. 
x / 
Vi=pt; 
for i in I do 
vi=v° (Q[i]); 
end for; 
return v; 
end function; 
W,phi:=WordGroup (G1); 
rho:=InverseWordMap (G1) ; 
IN:=sub<G1/f(x),f(y),f£(z),f£(w)>; 


ts = "[ -Ld(Gh)-s 2 tn. PL sn 9] 
ts[l]:=f(t); 

ts[2]:=f(t*z); 

ts[3]:=f(t7( w * x*-1)); 
ts[4]:=f£(t*( y * w)); 
ts[5]):=f(t*( y * z* w)); 
ts[6]:=f£(t* ( (wxxxy)*-1 )); 
ts[7]:=f£(t* ( w°5)); 

ts[8]:=f£(t* ( x*w°2)); 

ES PO Ga2 Ge ye a OL) hy 

#G/#N; 
estv=-([nulkeos a.-an [a S27) 
where null is[Integers() |]; 

for 1 := 1 to 9 do 
cst [prodim(1, ts, [1])]:=[1]; 
end for; 
m:=0; for iin [1..32] do if cst[i] ne [] then 


m:=m+l; end if; end for; m; 

for i in [1..32] do i, cst[i]; end for; 
N1:=Stabiliser(N,1); 
N1:=Stabiliser(N, [1]); 
S:={[1]}; 
SS:=S°N; 


SSS:=Sets 
for i in 
for g in 


eq(SS); 
[1..#SS] do 
IN do 


if ts[1] eq g*ts[Rep(SSS[i])[1l]]then print SSS[i]; 
end if; end for; end for; 
Nis:=N1; 
#N1s; 
Tl:=Transversal (N,NI1s); 
#T1; 
Tl:=Transversal (N,NI1s); 
for i := 1 to #T1 do 
ss := [1]°T1[i]; 
cst [prodim(1, ts, ss)] := ss; 
end for; 
m:=0;for i in [1..32] do if cst[i] 
then m:=m+1l; end if; end for; m; 
Tl:=Transversal (N,N1s); 
#T1; 
Orbits (N1s); 
for m,n in IN do if ts[l]*ts[2] 
then m,n; end if;end for; 
for m,n in IN do if ts[l]*ts[4] 
then m,n; end if;end for; 
for m,n in IN do if ts[l]*ts[3] 
then m,n; end if;end for; 
#N/#N1S; 
N13:=Stabiliser(N, [1,3]); 
N13s:=N13; 
S:={[1,3]}; 
SS:=S°N; 


SSS:=Setseq(SS) ; 


EOI a 30: 


LOM GUL 
if ts[l 


n [1..#SS] do 
n IN do 


]xts[3]leq gxts[Rep(SSS 


then print SSS[i]; 


end if; 
for g 


for g 
N13s: 
for g 
N13s: 
for g 


end for; end f 


=sub<N|N13s,9>; 
in N do if [1,3 
=sub<N|N13s,9>; 


in N do if [1,3] 
N13s:=sub<N|N13s,g9>; 
in N do if [1,3] 


in N do if [1,3] 


Org 
“g eg 
end if; 
“GUS 
end if; 
“g eq 
end if; 
“g eg 


[i]) 


[1,8] 


[5,9] 


ne [] 


eq m«x(ts[1])7n 


eq m«x(ts[1])7n 


eq m«x(ts[1])7n 


oT al 
end 


end 
Bized 
end 


for; 


[1] ]*ts[Rep(SSS[i]) [2]] 


then 


then 
Lox; 
then 
for; 
then 
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N13s:=sub<N|N13s,g>; end if; end for; 

for g in N do if [1,3]°g eq [6,2] then 
N13s:=sub<N|N13s,g>; end if; end for; 
for g in N do if [1,3]*g eq [6,4] then 
N13s:=sub<N|N13s,g>; end if; end for; 


N13s; 

# N13s; 

#N/#N138; 

T:=Transversal (N,N13s); 

for i := 1 to #T do 

ss := [1,3]°T{[il; 

cst [prodim(1, ts, ss)] := ss; 
end for; 


m:=0; for iin [1..32] do if cst[i] ne [] then m:=mt1; 
end if; end for;m; 
Orbits (N13s); 


for m,n in IN do if ts[1l]x«ts[3]*ts[1] eg 
m*(ts[1])*n then m,n;end if; end for;m; 

for m,n in IN do if ts[1l]x«ts[3]*ts[2] eg 
m*(ts[1])*n then m,n;end if; end for;m; 

for m,n in IN do if ts[1l]«*ts[2] eq 
mx(ts[l]«ts[4])*n then m,njend if; end for;m; 
for m,n in IN do if ts[1l]«*ts[2] eq 
mx(ts[l]«ts[4])“n then m,njend if; end for;m; 
N14:=Stabiliser(N, [1,4]); 

N14s:=N14; 

S:={[(1,4]}; 

SS:=S°N; 


SSS:=Setseq(SS); 

for i in [1..#SS] do 

for g in IN do 

if ts[{l]*ts[4]leq g*xts[Rep(SSS[1]) [1] ]*ts[Rep(SSS[1i]) [2]] 
then print SSS[i]; 

end if; end for; end for; 

for g in N do if [1,4]*g eq [1,7] then 
N14s:=sub<N|N14s,g>; end if; end for; 

# N14s;N14s; 

#N/#N148; 

T:=Transversal(N,N14s); 

for i:= 1 to #T do 

ss := [1,4]°T[il; 

cst [prodim(1, ts, ss)] := ss; 

end for; 

m:=0; for iin [1..32] do if cst[i] ne [] then m:=mt1; 


end if; end for;m; 
Orbits (N14s); 
for m,n in IN do if ts[1]«*ts[4]*ts[2] eg 
m*x(ts[1])°n then m,n; end if; end for;m; 
for m,n in IN do if ts[1l]«*ts[4]*ts[4] eg 
m*(ts[1])*n then m,n; end if; end for;m; 
for m,n in IN do if ts[1]*ts[4]*ts[3] eg 
mx(ts[l]«ts[3]*ts[1])*“n then m,n;end if; end for;m; 
N141:=Stabiliser(N, [1,4,1]); 
N141s:=N141; 
S:={[1,4,1]}; 
SS:=S°N; 
SSS:=Setseq(SS); 
for i in [1..#SS] do 
for g in IN do if ts[1l]*ts[4]«ts[l]leq 
gxts[Rep(SSS[i]) [1] ]*ts[Rep(SSS[i]) [2]] 
xts[Rep(SSS[i]) [3] ]then print SSS[i]; 
end if; end for; end for; 
for g in N do if [1,4,1]°9 eq [2,5,2] then 
N141s:=sub<N|N141s,g>;end if; end for; 
for g in N do if [1,4,1]°9 eq [1,7,1] then 
N141s:=sub<N|N141s,g>;end if; end for; 
for g in N do if [1,4,1]°9 eq [4,7,4] then 
N141s:=sub<N|N141s,g>;end if; end for; 
for g in N do if [1,4,1]°9 eq [9,3,9] then 
N141s:=sub<N|N141s,g>;end if; end for; 
for g in N do if [1,4,1]°9 eq [2,8,2] then 
N141s:=sub<N|N141s,g>;end if; end for; 
for g in N do if [1,4,1]°9 eq [5,8,5] then 
N141s:=sub<N|N141s,g>;end if; end for; 
for g in N do if [1,4,1]°9 eq [4,1,4] then 
N141s:=sub<N|N141s,g>; end if; end for; 
for g in N do if [1,4,1]°9 eq [7,4,7] then 
N141s:=sub<N|N141s,g>;end if; end for; 
for g in N do if [1,4,1]°9 eq [7,1,7] then 
N141s:=sub<N|N141s,g>;end if; end for; 
for g in N do if [1,4,1]°9 eq [9,6,9] then 
N141s:=sub<N|N141s,g>;end if; end for; 
for g in N do if [1,4,1]°9 eq [3,6,3] then 
N141s:=sub<N|N141s,g>;end if; end for; 
for g in N do if [1,4,1]°9 eq [5,2,5] then 
N141s:=sub<N|N141s,g>;end if; end for; 
for g in N do if [1,4,1]°9 eq [8,5,8] then 
N141s:=sub<N|N141s,g>;end if; end for; 
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for g in N do if [1,4,1]°g eq 
N141s:=sub<N|N141s,g>;end if; 
for g in N do if [1,4,1]°9g eq 

N141s:=sub<N|N141s,g>;end if; 
for g in N do if [1,4,1]°g eq 
N141s:=sub<N|N141s,g>;end if; 
for g in N do if [1,4,1]°9 eq 
N141s:=sub<N|N141s,g>;end if; 
#N141s; 

#N/#N1418; 

T:=Transversal (N,N141s); 

for i := 1 to #T do 

ss := [1,4,1]°T[il; 

cst [prodim(l1, ts, ss)] := ss; 
end for; 

m=O; for 2.an [2 y.32] 


end if; 


end for;m; 


Orbits (N141s); 


for m,n in IN do if ts[l]*«ts[4]«ts[l]«ts[1] 


do if cst[i] 


[8,2,8] 
end for; 
35 9553] 
end for; 
[6,3,6] 
end for; 
6,9, 6] 
end for; 


ne 


then 


then 


then 


then 


ei 


then m:=m+1; 


eq 


mx(ts[l]«ts[4])*n then m,nj;end if;end for; 
N131:=Stabiliser(N, [1,3,1]); 
N131s:=N131; 

S:={[1,3,1]}; 


SS:=S°N; 

SSS:=Setseq(SS); 

for iin [1..#SS] do 

for g in IN do if ts[1l]*ts[3]«ts[lleq 

gxts[Rep(SSS[1i]) [1] ]*ts[Rep(SSS[1i]) [2] ]*«ts[Rep(SSS[1i]) [3]] 

then print SSS[i]; 

end if; end for; end for; 
for g in N do if [1,3,1]°g eq [3,8,3] then 
N131s:=sub<N|N131s,g>;end if; end for; 

for g in N do if [1,3,1]°9 eq ,8,1] then 
N131s:=sub<N|N131s,g>; end if; end for; 
for g in N do if [1,3,1]°9 eq [8,1,8] then 

N131s:=sub<N|N131s,g>;end if; end for; 

for g in N do if [1,3,1]°9 eq [8,3,8] then 

N131s:=sub<N|N131s,g>;end if; end for; 

for g in N do if [1,3,1]°9g eq [3,1,3] then 
N131s:=sub<N|N131s,g>; end if; end for; 
#N1318; 

N131s; 

#N/#N1318; 


T:=Transversal(N,N131s); 
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for i := 1 to #T do 

ss := [1,3,1]°T[il]; 

cst [prodim(l1, ts, ss)] := ss; 
end for; 


m:=0; for iin [1..32] do if cst[i] ne [] then m:=mt1; 


end if; end for;m; 
Orbits (N131s); 
for m,n in IN do if ts[1l]«ts[3]x*ts[l]*ts[1] eg 
mx (ts[l]«ts[3])*n then m,njend if;end for; 
for m,n in IN do if ts[1l]«ts[3]xts[l]*ts[2] eg 
1]*ts[4])*n then m,n; end if;end for; 


— 


— 


mx (ts 


B.6 3°: S, x 2 over S3 x S3 


S:=Sym(9); 

xxe=S! C1, 2). 9) (3, 4). -3) (Oy. 7, 8)3 

yy:=S!(3, 6) (4, 7) (5, 8); 

zz:=S! (1, 2) (4, 5) (7, 8); 

ww:=S!(1, 4, 7) (2, 5, 8) (3, 6, 9); 

N:=sSub<S|xx, Vy, ZZ, WWw>; 

#N; 
G<x,y,Z,w,t>:=Group<x,y,Z,w,t|x°3,y°2,z2°2,w 3, 


x°-Llxyxx«y, (x°-1*z) 72, (y*z) *2, (x,w), (y*xw>-1) 72, 


Zewo-lexzew,t°2, (t,y), (t,x * Z), (wet) 73, ((x * w)*t) 70, 


((zZ * w)*t)*0, ((x * y)*t)*6, ((x * y * w°-1)*t) 74>; 
#G; 

#G/#N; 

£,G1,k:=CosetAction (G, sub<G|x,y,Z,W>); 
CompositionFactors (Gl); 


NN<x, Y, Z,W>:=Group<x, y,Z,wW|X°3,y°2,2°2,w’3,x° -1l*y*x*y, 


(x°-1l*z)*2, (y*z)*2, (X&,w), (y*xwo-1) 72, zZ*w°-1x*zx*w>; 
Sch:=SchreierSystem(NN, sub<NN|Id (NN) >); 
ArrayP:=[Id(N): i in [1..36]]; 


for i in [2..36] do 

P:=[Id(N): 1 in [1..#Sch[i]]]; 

for j in [1..#Sch[i]] do 

if Eltseq(Sch[i])[j] eq 1 then P[Jj]:=xx; end if; 

if Eltseq(Sch[i])[j] eq -1 then P[Jj]:=xx*-1; end if; 
if Eltseq(Sch[i])[j] eq 2 then P[j]:=yy; end if; 

if Eltseq(Sch[i])[j] eq 3 then P[j]:=zz; end if; 

if Eltseq(Sch[i])[j] eq 4 then P[Jj]:=ww; end if; 

end for; 

PP:=Id(N); 
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for k in 


[1..#P] do 
PP:=PPx«P[k] 


; end for; 
ArrayP[1i]:=PP; 
end for; 


for iin [1..#N] do 1°ArrayP[i],Sch[i];end for; 


G<x,y,Z,wW,t>:=Group<x,y,Z,w,t|x°3,y°2,Z2°2,w 3,x° -1L*y*x*y, 
(x°-1l*z)*2, (y*z) 72, (X&,w), (y*wo-1) 72, z2*w°-1l*zew, 

t°2, (t,y), (t,x * Zz), (wet) 73, 

((x * w)*t)*0, ((Z * w)*t)*0, ((x * y)*t) 6, 

((x * y * wi-1)*t) 74>; 
£,G1,k:=CosetAction (G, sub<G|x,y,Z,W>); 

prodim := function(pt, Q, I) 

/x* 

Return the image of pt under permutations Q[T] 
applied sequentially. 

x / 

Vi=pt; 

for i in I do 

vi=v" (Q[i]); 

end for; 


return v; 

end function; 

W, phi:=WordGroup (G1) ; 
rho:=InverseWordMap (G1); 
IN:=sub<G1l/f(x),f(y),£(z),£(w)>; 


ts := [ Id(Gl): i in [1 .. 9] ]; 
ts[l]:=f(t); 

ts[2]:=f (tz); 

ts[3]:=f£(t7 ( w * x*-1)); 
ts[4]:=£(t°( y * w)); 
ts[S]:=f£(t*( y * 2 * w)); 
ts[6]:=£(t*( (wexx*y)*-1 )); 
ts[7]:=f£(t* ( w°5)); 
ts[8]:=£(t* ( x*w°2)); 
ts[9]:=f£(t*( y * x*-1)); 
#G/#N; 

cst:= [null : iin [1 .. 36]] 
where null is[Integers() |]; 
for 1 := 1 to 9 do 
cst[prodim(l1, ts, [1])]:=[1]; 
end for; 


m:=0; for iin [1..36] do if cst[i] ne [] then m:=mt1; 
end if; end for; m; 
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for a an, -[kes 3:6.) "d6>a,-"ecst Tu); end tors 
N1:=Stabiliser(N,1); 

N1:=Stabiliser(N, [1]); 

S:={[1]}; 

SS:=S°N; 

SSS:=Setseq(SS); 

for i in [1..#SS] do 

for g in IN do 

if ts[1] eq gx*xts[Rep(SSS[i])[1]]then print SSS[i]; 
end if; end for; end for; 


Nis:=N1; 

#N1s; 

Tl:=Transversal(N,N1s); 

#T1; 

for i := 1 to #Tl do 

ss := [1]°T1[il]; 

cst [prodim(l, ts, ss) ] = ss; 
end for; 


m:=0;for i in [1..36] do if cst[i] ne [] 
then m:=m+l; end if; end for; m; 


Orbits (Nl1s); 

for m,n in IN do if ts[l]*ts[2] eq m«(ts[1])7n 
then m,n; end if;end for; 

for m,n in IN do if ts[l]*ts[4] eq m«(ts[1])7n 
then m,n; end if;end for; 

for m,n in IN do if ts[1l]*ts[3] eq m«(ts )*n 
then m,n; end if;end for; 

for m,n in IN do if ts[1l]*ts[3] eq m*(ts[1l]*ts[2])7*n 
then m,n; end if;end for; 

#N/#N18S; 

N13:=Stabiliser(N, [1,3]); 

N13s:=N13; 

Se={Fl,.3))4 

SS:=S°N; 


SSS:=Setseq(SS) ; 

for i in [1..#SS] do 

for g in IN do 

if ts[l]*ts[3Jeq g*ts[Rep(SSS[1i]) [1] ]*ts[Rep(SSS[i]) [2]] 
then print SSS[i]; 

end if; end for; end for; 

for g in N do if [1,3]*g eq [4,2] then 
N13s:=sub<N|N13s,g>; end if; end for; 

N13s; 

# N13s; 
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#N/#N138; 
T:=Transversal(N,N13s); 

for i := 1 to #T do 

ss := [1,3]°T{[il; 
cst[prodim(l, ts, ss)] := ss; 
end for; 


m:=0; for iin [1..36] do if cst[i] ne [] then m:=m+1; 
end if; end for;m; 


Orbits (N13s); 


for m,n in IN do if ts[1]x«ts[3]*ts[2] eg 
m*x(ts[1])°n then m,n;end if; end for; 

for m,n in IN do if ts[1l]x«ts[3]*ts[1] eg 
m*(ts[l]*ts[3])°n then m,n;end if; end for; 
for m,n in IN do if ts[1]*ts[3]*ts[7] eg 
mx (ts xts[2])°n then m,n;end if; end for; 
for m,n in IN do if ts[1l]x«ts[3]*ts[5] eg 
m* (ts *xts[3])°n then m,n;end if; end for; 
for m,n in IN do if ts[1]x«ts[3]*ts[6] eg 
mx (ts xts[2])°n then m,n;end if; end for; 
N12:=Stabiliser(N, [1,2]); 

N12s:=N12; 

S:={[1,2]}; 

SS:=S°N; 


SSS:=Setseq (SS); 

for i in [1..#SS] do 

for g in IN do 

if ts[l]«ts[2]leq g*ts[Rep(SSS[i]) [l]]*ts[Rep(SSS[i]) [2]] 
then print SSS[i]l;end if; end for; end for; 

for g in N do if [1,2]°g eq [2,9] then 
N12s:=sub<N|N12s,g>; end if; end for; 

for g in N do if [1,2]°g eq [9,1] then 
N12s:=sub<N|N12s,g>; end if; end for; 


#N12s; 

N12s; 

#N/#N1238; 
T:=Transversal(N,N12s); 

for i := 1 to #T do 

ss := [1,2]°T[il; 
cst[prodim(l1, ts, ss)] := ss; 
end for; 


m:=0; for iin [1..36] do if cst[i] ne [] then m:=mt1; 
end if; end for;m; 


Orbits (N12s) 


for m,n in I 


m*x(ts[1])7n 


for m,n in I 
[3]) 


mx (ts[l]x«ts 


7 

N do 
then 
N do 


if 
m,n 
if 


ts[l]«ts[2]* 
;end if;end 


ts[l]*«ts[2]* 


*“n then m,n;end it 


N137:=Stabiliser(N, [1,3,7]); 


N137s:=N137; 
S:={[1,3,7] 7 


SS:=S°N; 


SSS: 


fOr 


=Setseq(SS); 


i in [1..#SS] 
for g in IN do if ts[1]* 
gxts[Rep(SSS[i]) [1] ]*tsf[1 


do 


then print SSS[i]; 
end if; end for; 


for 


then N137s:=sub<N 


end 
for 


then N137s:=sub<N 


end 
£Or 


then N137s:=sub<N 


end 
for 


end 
for 


end 
for 


then N137s:=sub<N 


end 
for 


end 
for 


end 
for 


then N137s:=sub<N 


end 
for 


then N137s:=sub<N 


g in N do if 


if; end for; 
g in N do if 


if; end for; 
g in N do if 


if; end for; 
g in N do if 


then N137s:=sub<N 


if; end for; 
g in N do if 


then N137s:=sub<N 


if; end for; 
g in N do if 


if; end for; 
g in N do if 


then N137s:=sub<N 


if; end for; 
g in N do if 


then N137s:=sub<N 


if; end for; 
g in N do if 


LE; end: £0r; 
g in N do if 


end for; 
[Lyset] ged 
N137s,9>; 


[1,3,7]°g eg 
N137s,9g>; 


[1,3,7]°g eg 
N137s,9>; 


[lyse Tl o eq 
N137s,9>; 


We se rar allme peor | 
N137s,9>; 


Llese TS SG 
N137s,9>; 


[1,3,7]1°g eq 
N137s,9>; 


[1,3,7]°g eq 
N137s,9>; 


[1,3,7]°g eq 
N137s,9g>; 


[Lye, 1] “go veq 
N137s,9>; 


ts[2] eg 
for; 

ts[3] eg 
fF;end for; 


ts[3]«*«ts[7leq 
Rep (SSS[i]) [2] ]«ts[Rep(SSS[i]) [3]] 
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end if; end for; 
for g in N do if 
then N137s:=sub<N 
end if; end for; 
for g in N do if 
then N137s:=sub<N 
end if; end for; 
for g in N do if 
then N137s:=sub<N 
end if; end for; 
for g in N do if 
then N137s:=sub<N 
end if; end for; 
for g in N do if 
then N137s:=sub<N 
end if; end for; 
for g in N do if 
then N137s:=sub<N 
end if; end for; 
for g in N do if 
then N137s:=sub<N 
end if; end for; 


#N137s; 

N137s; 

#N/#N1378; 
T:=Transversal (N,N137s); 
for i := 1 to #T do 

ss := [1,3,7]°T[il; 


cst [prodim(l, ts, 


N 


N 


[1,3,7]°g eq [ 5, 9, 8 ] 
137s,9g>; 


[1,3,7]*g eq [ 8, 3, 2 ] 
137s,9g>; 


[1,3,7]°g9 eq [ 6, 2, 3 ] 


N137s,9>; 


[1,3,7]°g eq L oy 2y Pd 


N137s,9>; 


[1,3,7]"g eq [ 7, 5, 1 ] 


N137s,9>; 


[1,3,7]°g9 eq [ 3, 1, 6 ] 


N137s,9>; 


[1,3,7]1°g9 eq [ 6, 4, 9 ] 


N137s,9>; 


ss) ] 
end for; m:=0; for i in 


= Ss; 
[1..36] do if cst[i] 


ne [] then m:=mt+l;end if; end for;m; 


Orbits (N137s); 


for m,n in IN do if ts[l]*ts[3]*ts[7]«ts[7] 
mx(ts[l]«*«ts[3])*n then m,n;end if; end for; 


eq 
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Appendix C 


MAGMA Code for Maximal DCE 


C.1 MM, over Maximal Subgroup S; 


S:=Sym(40); 

xx:=S!(1, 9, 17, 25, 33) (2, 26, 10, 34, 18) 

(3, 35, 2457-194 Wace) -207.-3) 225. °28) (5 LS, 217-29; 37) 
(6, 30, 14, 38, 22) 

(ly 39, 31,23; 15)-(8). “245. -405- Le, 32) 3 

WSL (ly Ay By Diep By “Ty GCS 12. he A) 
(13.16) TS p TAVAPs, 20s UGe, VA). (212 A T9S, 994 
(25,28; 27,: 26) (29,. 327.31; -30)(33,-.36, 35,34) 
(37, 40, 39, 38); 

N:=Sub<S|xx,yy>; 

G<x, y,t>:=Group<x,y,t|x°5,y°4,y° 3*x* 3*y*x,t°11,t°x=t°5, 
(y* (t°79)) 3, (y* (t710)) *6>; 

#G; 

£,G1,k:=CosetAction (G, sub<G|x,y>); 

#k; 

CompositionFactors (Gl); 
#DoubleCosets (G, sub<G|x, y>, sub<G|x,y>) ; 
HH2:=sub<G|x,y>; 

M:=sub<G|x,y,t * xX * y°2 * t°-1>; 
DoubleCosets (G,M, HH2) ; 

#DoubleCosets (G,M, HH2) ; 

IM:=sub<Gl1|f(x),f(y),f(t * x * y72 * t*-1)>; 
IN:=sub<G1|f(x),f(y)>; 
NN<a,b>:=Group<a,b|a°5,b°4,b°3*a*3xbxa>; 
Sch:=SchreierSystem (NN, sub<NN|Id (NN) >); 
ArrayP:=[Id(N): i in [1..20]]; 
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ts[31]:=(ts[3]) 77; 
ts[32]:=(ts[4]) 77; 
ts[33]:=(ts[1]) 73; 
ts[34]:=(ts[2])*3; 
ts[35]:=(ts[3]) 73; 
ts[36]:=(ts[4]) 73; 
ts[37]:=(ts[1]) 76; 
ts[38]:=(ts[2]) 76; 
ts[39]:=(ts[3]) 76; 
ts[40]:=(ts[4]) 76; 
prodim := function(pt, Q, I) 
Ve s= pes 

for i in I do 


vioi= v7 (Q[i]); 
end for; 
return v; 
end function; 


cst := [null : i in 

[l .. Index (G,sub<G|x,y,t * x * y°2 * t7*-1>)]] 
where null is 

[Integers() | 7 

Orbits (N); 


N1:=Stabiliser (N, [1]); 
SSS:={[1]}; 

SSS:=SSS°N; 

# (SSS) ; 
Seqq:=Setseq(SSS) ; 

for i in [1..#SSS] do 
for n in IM do 


if ts[l]leq nxts[Rep(Seqq[i])[1]] then print Rep(Seqq[i]); 


end if; end for; end for; 

Nis:=N1; 

for n in N do if 1°n eg 19 then Nls:=sub<N|N1s,n>; 
end if; end for; 

Nl; #N1; 
Tl:=Transversal(N,N1s); 

for i in [1..#T1] do 
ss:=[1]°T1l[i]; 

cst [prodim(l1, ts, ss)]:=ss; 
end for; 
m:=0; for iin [1..66] do if cst[i] ne [] 
then m:=m+l; end if; end for; m; 

for iin [1..40] do for n in IM do if ts[1] 
eq nxts[i] then i; end if; end for; end for; 
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Orbits (Nl1s); 


219 


for g in IM do for h in IN do if ts[1]*ts[5] eg 
g*x(ts[1])7h then "true"; break; end if; 
end for; end for; 
for g in IM do for h in IN do if ts[1]*ts[9] eg 
gx (ts[1])*h then "true"; break; end if; 
end for; end for; 
for g in IM do for h in IN do if ts[1]*ts[11] eq 
g*x(ts[1])*h then "true"; break; end if; 
end for; end for; 
for g in IM do for h in IN do if ts[1]*ts[13] eq 
g*x(ts[1])*h then "true"; break; end if; 
end for; end for; 
Nls; 
#N1s; 
for g in IM do for h in IN do if ts[1]*ts[3] eg 
gx (ts[5])*h then "true"; break; end if; 
end for; end for; 
for g in IM do for h in IN do if ts[1]*ts[4] eg 
g*(ts[5])*h then "true"; break; end if; 
end for; end for; 
for g in IM do for h in IN do if ts[1]*ts[7] eg 
g*x(ts[5])*h then "true"; break; end if; 
end for; end for; 
for g in IM do for h in IN do if ts[1]*ts[15] eq 
gx (ts[5])*h then "true"; break; end if; 
end for; end for; 
for g in IM do for h in IN do if ts[1]*ts[17] eq 
g*x(ts[5])*h then "true"; break; end if; 
end for; end for; 
for g in IM do for h in IN do if ts[1]*ts[6] eg 
gx (ts[l]*ts[10])“h then "true"; break; end if; 
end for; end for; 
for g in IM do for h in IN do if ts[1]*ts[8] eg 
g*(ts[l]*ts[14])“h then "true"; break; end if; 
end for; end for; 
for g in IM do for h in IN do if ts[1]*ts[8] eg 
gx (ts[l]*ts[26])“h then "true"; break; end if; 
end for; end for; 
for g in IM do for h in IN do if ts[1]*ts[8] eg 
gx (ts[l]*ts[30])“h then "true"; break; end if; 
end for; end for; 
for g in IM do for h in IN do if ts[1]*ts[12] eq 
gx (ts[l]*ts[22])“h then "true"; break; end if; 
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end for; end for; 
N5:=Stabiliser (N, [5]); 


SSS:={[5] }; 
SSS:=SSS°N; 

SSS; 

# (SSS); 
Seqq:=Setseq(SSS) ; 
seqdq; 


for i in [1..#SSS] do 

for n in IM do 

if ts[5]eq nxts[Rep(Seqgq[i]) [l]]then print Rep(Seqq[i]); 
end if; end for; end for; 

N5s:=N5; 

for n in N do if 5°n eq 31 then N5s:=sub<N|N5s,n>; 

end if; end for; 

N5; #N5; 

T5:=Transversal (N,N5s); 

for i in [1..#T5] do 

ss:=[5]°T5[il; 

cst [prodim(l1, ts, ss)]:=ss; 

end for; 

m:=0; for iin [1..66] do if cst[i] ne [] 

then m:=m+l; end if; end for; m; 

for iin [1..40] do for n in IM do if ts[5] eq 

n*ets[i] then i; 

end if; end for; end for; 

{54-33}, NY 

Orbits (N5s); 

#N5s; 

N5s; 

#N/#N5S; 

for g in IM do for h in IN do if ts[5]*ts[3] 

eq gx(ts[5])*h then "true"; break; end if; 

end for; end for; 

for g in IM do for h in IN do if ts[5]*ts[9] 

eq gx(ts[5])7h then "true"; break; end if; 

end for; end for; 
for g in IM do for h in IN do if ts[5]*ts[13] 
eq gx(ts[5])7h then "true"; break; end if; 
end for; end for; 

for g in IM do for h in IN do if ts[5]*ts[23] 
eq gx(ts[5])*h then "true"; break; end if; 
end for; end for; 
for g in IM do for h in IN do if ts[5]*ts[1] 


eq gx(ts[1])7h then "true"; 


end for; 


for g in IM do for h in IN do if 
eq gx(ts[1])7h then "true"; 


end for; 


for g in IM do for h in IN do if 
eq gx(ts[1])7h then "true"; 


end for; 


end for; 


end for; 


end for; 


break; 


break; 


end 


ts[5]* 


end 


break; 


ts[5]* 


end 


anise 


ts[7] 


af 


ts[8] 


if; 


for g in IM do for h in IN do if ts[5]*ts[15] 
eq gx(ts[1])7h the 


end for; 


end for; 


n "true"; break; 


nd 
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for g in IM do for h in IN do if ts[5]+*ts[19] 


eq gx(ts[1])*h then "true"; break; end if; 
end for; end for; 
for g in IM do for h in IN do if ts[5]*ts[2] 
eq gx(ts[5]*ts[16])*h then "true"; break; end if; 
end for; end for; 
for g in IM do for h in IN do if ts[5]*ts[4] 
eq gx(ts[5]*ts[12])*h then "true"; break; end if; 
end for; end for; 
for g in IM do for h in IN do if ts[5]*ts[4 
eq gx(ts[5]*ts[28])*h then "true"; break; end if; 
end for; end for; 
for g in IM do for h in IN do if ts[5]*ts[4 
eq gx (ts[5]*ts[32])*h then "true"; break; end if; 
end for; end for; 
for g in IM do for h in IN do if ts[5]*ts[20] 
eq gx(ts[5]*ts[24])*h then "true"; break; end if; 
end for; end for; 
for g in IM do for h in IN do if ts[1]+*ts[6] 
eq gx(ts[5]*ts[2]) 7h then "true"; break; end if; 
end for; end for; 
for g in IM do for h in IN do if ts[1]*ts[8 
eq gx(ts[5]*ts[32])*h then "true"; break; end if; 
end for; end for; 
for g in IM do for h in IN do if ts[1]*ts[8] 
eq gx(ts[5]x*ts[4]) 7h then "true"; break; end if; 


end £0; 
for g in 


end for; 
IM do for 


eq gx(ts[5]*ts[12] 


end for; 


for g in IM do for h in IN 


end for; 


eq gx(ts[5]*ts[28] 


end for; 


end for; 


)“h then "true"; 


)*h then "true"; 


h in IN do if ts[l]«ts[8 


brea 


brea 


k; end if; 


do if ts[1]«ts[8] 


k; end if; 
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for g in IM do for h in IN do if ts[1]*ts[12] 

eq gx(ts[5]*ts[20])*h then "true"; break; end if; 
end for; end for; 
for g in IM do for h in IN do if ts[1]*ts[21] 

eq gx(ts[5]*ts[11])*h then "true"; break; end if; 
end for; end for; 
for g in IM do for h in IN do if ts[1]+*ts[18] 

eq gx(ts[5]*ts[6])*h then "true"; break; end if; 
end for; end for; 

for g in IM do for h in IN do if ts[1]+*ts[18] 

eq gx(ts[5]*ts[6])*h then "true"; break; end if; 
end for; end for; 

N16:=Stabiliser (N,[1,6]); 

SSS:={[1,6]}; 

SSS:=SSS°N; 


SSS; 

# (SSS); 
Seqq:=Setseq(SSS) ; 
seqdq; 


for i in [1..#SSS] do 

for n in IM do 

if ts[1l] *ts[6leq nxts[Rep (Seqq[i]) [1]]*ts[Rep(Seqq[i]) [2]] 
then print Rep(Seqq[i]); 

end if; end for; end for; 

N16s:=N16; 

for n in N do if 1°n eq 19 and 6*n eq 16 then 
N16s:=sub<N|N16s,n>; 

end if; end for; 

N16; #N16; 

T16:=Transversal (N,N16s); 

for i in [1..#T16] do 

ss:=[1,6]°T16[i]; 
cst [prodim(l1, ts, ss)]:=ss; 
end for; 

m:=0; for iin [1..66] do if cst[i] ne [] 
then m:=m+l; end if; end for; m; 
[1,6] “N16s; 
for n in IM do if ts[l]*ts[6] eq n*ets[19]*ts[16] then n; 
end if; end for; 
for i in [1..#T16] do ([1,6]°N16s) “T16[i]; end for; 
Orbits (N16s); 

#N/#N168; 

for g in IM do for h in IN do if ts[1]*ts[6]«ts[5] 
eq gx(ts[1])*7h then "true"; break; end if; 
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end for; end for; 
for g in IM do for h in IN do if ts[1]*ts[6]«ts[26] 
eq gx(ts[1])*7h then "true"; break; end if; 
end for; end for; 
for g in IM do for h in IN do if ts[1]*ts[6]«ts[2] 
eq g*(ts[5])*h then "true"; break; end if; 
end for; end for; 
for g in IM do for h in IN do if ts[1]*ts[6]*«ts[15] 
eq gx(ts[5])*h then "true"; break; end if; 
end for; end for; 
for g in IM do for h in IN do if ts[1]*ts[6]«ts[1] 
eq gx(ts[5]*ts[2])*h then "true"; break; end if; 
end for; end for; 
for g in IM do for h in IN do if ts[1]*ts[6]«ts[1] 
eq gx (ts[5]*ts[16])*h then "true"; break; end if; 
end for; end for; 
for g in IM do for h in IN do if ts[1]*ts[6]«ts[1] 
eq gx(ts[l]*ts[10])*h then "true"; break; end if; 
end for; end for; 
for g in IM do for h in IN do if ts[1]*ts[6]«ts[3] 
eq gx(ts[1]*ts[8])*h then "true"; break; end if; 
end for; end for; 
for g in IM do for h in IN do if ts[1]+*ts[6]«ts[3] 
eq gx(ts[1l]*ts[14])*h then "true"; break; end if; 
end for; end for; 
for g in IM do for h in IN do if ts[1]*ts[6]*«ts[4] 
eq gx(ts[1]*ts[18])*h then "true"; break; end if; 
end for; end for; 
for g in IM do for h in IN do if ts[1]*ts[6]«ts[6] 
eq gx(ts[l]*ts[6])*h then "true"; break; end if; 
end for; end for; 
for g in IM do for h in IN do if ts[1]*ts[6]«ts[7] 
eq gx(ts[l]*ts[12])*h then "true"; break; end if; 
end for; end for; 
for g in IM do for h in IN do if ts[1]*ts[6]«ts[8] 
eq gx(ts[l]*ts[8])*h then "true"; break; end if; 
end for; end for; 
for g in IM do for h in IN do if ts[1]*ts[6]«ts[9] 
eq gx(ts[l]*ts[8])*h then "true"; break; end if; 
end for; end for; 
for g in IM do for h in IN do if ts[1]*ts[6]*«ts[10] 
eq gx(ts[1l]*ts[8])*h then "true"; break; end if; 
end for; end for; 
for g in IM do for h in IN do if ts[1]*ts[6]*ts[11] 


eq gx(ts[1l]*ts[8])*h then "true"; break; end if; 
end for; end for; 

for g in IM do for h in IN do if ts[1]*ts[6]«ts[13] 
eq gx(ts[1l]*ts[12])*h then "true"; break; end if; 
end for; end for; 

for g in IM do for h in IN do if ts[1]*ts[6]«ts[14] 
eq gx(ts[l]*ts[12])*h then "true"; break; end if; 
end for; end for; 

for g in IM do for h in IN do if ts[1]*ts[6]«ts[17] 
eq gx(ts[l]*ts[18])*h then "true"; break; end if; 
end for; end for; 

for g in IM do for h in IN do if ts[1]*ts[6]«ts[18] 
eq gx(ts[l]*ts[8]) 7h then "true"; break; end if; 
end for; end for; 

for g in IM do for h in IN do if ts[1]*ts[6]*ts[21] 
eq gx(ts[l]*ts[8])*h then "true"; break; end if; 
end for; end for; 

for g in IM do for h in IN do if ts[1]*ts[6]«ts[22] 
eq gx(ts[l]*ts[12])*h then "true"; break; end if; 
end for; end for; 

for g in IM do for h in IN do if ts[1]*ts[6]«ts[26] 
eq gx(ts[l]*ts[5])*h then "true"; break; end if; 
end for; end for; 

for g in IM do for h in IN do if ts[1]*ts[6]«ts[26] 
eq gx(ts[1])*h then "true"; break; end if; 

end for; end for; 

for g in IM do for h in IN do if ts[1]*ts[6]«ts[30] 
eq gx(ts[l]*ts[8])*h then "true"; break; end if; 
end for; end for; 

for g in IM do for h in IN do if ts[1]*ts[6]«ts[1] 

eq gx(ts[l]*ts[6])*h then "true"; break; end if; 
end for; end for; 

for g in IM do for h in IN do if ts[1]*ts[12]*ts[1] 

eq gx(ts[l]*ts[6])*h then "true"; break; end if; 

end for; end for; 

for g in IM do for h in IN do if ts[1]*ts[12]*ts[2] 

eq gx(ts[1]*ts[8]) 7h then "true"; break; end if; 
end for; end for; 

for g in IM do for h in IN do if ts[1]*ts[12]*ts[3] 

eq gx(ts[l]*ts[8])*h then "true"; break; end if; 


end for; end for; 
for g in IM do for 
eq ge (esiiiste lol)” 
end for; end for; 


in IN do if ts[l]«ts[12]«ts[4] 


then 
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break; 


end if; 
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for g in IM do for h in IN do if ts[1]*ts[12]*ts[5] 


eq gx(ts[1]*ts[18])*h then "true"; break; end if; 


end for; end for; 
N18:=Stabiliser (N,[1,8]); 
SSS:={[1,8]}; 
SSS:=SSS°N; 
SSS; 
# (SSS) ; 
Seqq:=Setseq(SSS) ; 
seqqd; 
for i in [1..#SSS] do 
for n in IM do 


if ts[l] xts[8]eq n*ts[Rep(Seqq[i]) [1]]*ts[Rep(Seqq[i]) [2]] 


then print Rep(Seqq[i]); 
end if; end for; end for; 
N18s:=N18; 

N18; #N18; 

T18:=Transversal (N,N18s); 
for i in [1..#T18] do 
ss:=[1,8]°T18[i]; 

cst [prodim(l, ts, ss)]:=ss; 
end for; 


m:=0; for iin [1..66] do if cst[i] ne 


then m:=m+l; end if; end for; m; 
Orbits (N18s); 
[1,8] °N18s; 


for i in [1..#T18] do ([1,8]°N18s) *T18[il]; 


Orbits (N18s); 
#N/#N188; 
#N/#N18; 
#N18s; 


for g in IM do for h in IN do if ts[1] xt 
eq gx(ts[1l]*ts[12])*h then "true"; brea 


end if; end for; end for; 


for g in IM do for h in IN do if ts[l 


|* 


[] 


ts[8]«ts[1] 
kK; 


ts[8]«ts[2] 


eq gx(ts[1l]*ts[6])*h then "true"; break; 


end if; end for; end for; 


for g in IM do for h in IN do if ts[l 


end for; end for; 


J*xts[8]«ts[3] 
eq gx(ts[1])*h then "true"; break; end if; 


for g in IM do for h in IN do if ts[1]*ts[8]«ts[4] 
eq gx(ts[l]*ts[8])*h then "true"; break; end if; 


end for; end for; 


for g in IM do for h in IN do if ts[1]*ts[8]«ts[5] 


end for; 
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a 


eq gx(ts[1l]*ts[8])“h then "true"; break; end if; 
end for; end for; 

for g in IM do for h in IN do if ts[1]*ts[8]x«xts[6] 
eq gx(ts[1l]*ts[8])*h then "true"; break; end if; 
end for; end for; 

for g in IM do for h in IN do if ts[1]*ts[8]x«ts[7] 
eq gx(ts[5])*h then "true"; break; end if; 

end for; end for; 

for g in IM do for h in IN do if ts[1]*ts[8]x«ts[8] 
eq gx(ts[l]*ts[12])*h then "true"; break; end if; 
end for; end for; 

for g in IM do for h in IN do if ts[1]*ts[8]x«ts[9] 
eq gx(ts[l]*ts[18])*h then "true"; break; end if; 
end for; end for; 

for g in IM do for h in IN do if ts[1]*ts[8]*«ts[10] 
eq gx(ts[5])*7h then "true"; break; end if; 

end for; end for; 

for g in IM do for h in IN do if ts[1]*ts[8]«ts[11] 
eq gx(ts[l]«*ts[8]) 7h then "true"; break; end if; 
end for; end for; 

for g in IM do for h in IN do if ts[1]*ts[8]«ts[12] 

eq gx(ts[l]*ts[8])*h then "true"; break; end if; 
end for; end for; 

for g in IM do for h in IN do if ts[1]*ts[8]«ts[13] 

eq gx(ts[5])*h then "true"; break; end if; 

end for; end for; 

for g in IM do for h in IN do if ts[1]*ts[8]«ts[14] 

eq gx(ts[l]*ts[8])*h then "true"; break; end if; 

end for; end for; 

for g in IM do for h in IN do if ts[1]*ts[8]«ts[15] 

eq gx(ts[l]*ts[12])*h then "true"; break; end if; 

end for; end for; 

for g in IM do for h in IN do if ts[1]*ts[8]«ts[16] 

eq gx(ts[l]*ts[8])*h then "true"; break; end if; 
end for; end for; 

for g in IM do for h in IN do if ts[1]*ts[8]«ts[17] 

eq gx (ts[1l]*ts[12])*h then "true"; break; end if; 
end for; end for; 

for g in IM do for h in IN do if ts[1]*ts[8]«ts[18] 


eq gx(ts[1]*ts[8])*h then "true"; 


end for; end for; 


b 


reak; 


end if; 


for g in IM do for h in IN do if ts[1]*ts[8]«ts[19] 
eq gx(ts[l]*ts[12])*h then "true"; 


end for; end for; 


break; 


end if; 


for g in IM do for h in IN do if ts[1]*ts[8]«ts[20] 
eq gx(ts[1l]*ts[12])*h then "true"; 


end for; 


end for; 


break; end if; 


for g in IM do for h in IN do if ts[1]*ts[8]*ts[21] 


eq gx(ts[1]*ts[6])*h then "true"; 
end for; 
for g in IM do for h in IN do if ts[1]*ts[8]«ts[22] 
eq gx (ts[1]*ts[18]) 7h then 
end for; 


end for; 


end for; 


"true"; 


for g in IM do for h in IN do if ts 


eq gx (ts[1]«*ts[18]) 7h then 
end for; 


end for; 


Weruen > 


for g in IM do for h in IN do if ts 


eq gx(ts[5 
end for; 


eq gx(ts[l 
end for; en 


for g in IM do for h 


eq gx(ts[1] 
end for; en 


for g in IM do for h 


eq gx (ts[1] 
end for; en 


for g in IM do for h 


eq gx (ts[1] 
end for; en 


for g in IM do for h 


eq gx (ts[1] 
end for; en 


for g in IM do for h 


eq gx (ts[1] 
end for; en 


for g in IM do for h 


eq gx (ts[1] 
end for; en 


for g in IM do for h 


eq gx (ts[1] 
end for; en 


for g in IM do for h in IN do if ts[1]*ts[8]*ts[33 


eq gx (ts[1] 
end for; en 


for g in IM do for h in IN do if ts[1]*ts[8]«ts[34] 
s[l]«ts[12])*h then "true"; 


eq gx (t 


])*h then 
end for; 
for g in IM do for 


*«ts[8])7h 


du fore 


ad for; 


xts[6])7h 
di. fore 


)*h then 
a -TOxr; 


*ts[8]) “*h 
da. for? 


xts[6]) ~h 
a: £oxrs 


xts[8]) “h 
d for; 


Teruel: 


break; 


end if; 


break; end if; 


[l]*ts[8]«ts[23 
break; end if; 


[l] «ts[8]«ts[24 


break; 


h in IN do if ts[l]«ts[8 
break; 


then: “true 


in IN do if ts[l 
*«ts[12])*h then "true"; 


in IN do if ts[l 


then "true"; b 


in IN do if ts 


W 


no. 1; 


xts[25] 
end if; 


]xts[8]*ts[26 
break; end if; 


J«xts[8]«ts[27] 


true"; break; 


in IN do if ts 
then "true"; b 


in IN do if ts 
then "true"; b 


in IN do if ts 
then “exrue "4 6 


in IN do if ts 


*ts[18])*h then "true"; 


a for; 


)*h then 
afore 


"true! 


reak; end if; 
[1] «ts[8]«ts[28] 
nd if; 


[1] «ts[8]«ts[29] 
reak; end if; 


[1] «ts[8]*ts[30] 
reak; end if; 


[l]«*ts[8]*ts[31] 
reak; end if; 


[l] xts[8]*«ts[32] 
break; end if; 


break; 


end if; 


break; end if; 
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end for; end for; 

for g in IM do for h in IN do if ts[1]*ts[8]«ts[35] 
eq gx(ts[l]*ts[8])*h then "true"; break; end if; 
end for; end for; 
for g in IM do for h in IN do if ts[1]*ts[8]«ts[36] 
eq gx(ts[1l]*ts[6])*h then "true"; reak; end if; 
end for; end for; 
for g in IM do for h in IN do if ts[1]*ts[8]*«ts[37] 
eq gx(ts[l]*ts[6])*h then "true"; break; end if; 
end for; end for; 
for g in IM do for h in IN do if ts[1]*ts[8]«ts[38] 
eq gx(ts[1])*7h then "true"; break; end if; end for; 
end for; 


+ 


for g in IM do for h in IN do if ts[1]*ts[8]«ts[39] 
eq gx(ts[1]*ts[6])*h then "true"; break; end if; 
end for; end for; 

for g in IM do for h in IN do if ts[1]*ts[8]«ts[40] 
eq gx(ts[l]*ts[6])*h then "true"; break; end if; 
end for; end for; 

N118:=Stabiliser (N, [1,18]); 

SSS:={[1,18]}; 

SSS:=SSS°N; 


SSS; 

# (SSS); 
Seqq:=Setseq(SSS) ; 
seqq; 


for i in [1..#SSS] do 

for n in IM do 

if ts[1] xts[18]eq nxts[Rep(Seqq[i]) [1] ]«ts[Rep (Seqq[i]) [2] ] 
then print Rep(Seqq[i]); 

end if; end for; end for; 

N118s:=N118; 


for n in IM do if 1°n eq 20 and 18*n eq 25 then 
N118s:=sub<N|N118s,n>;end if; end for; 

for n in IM do if 1°n eq 20 and 18°n eq 25 then 
N118s:=sub<N|N118s,n>; end if; end for; 

for n in IM do if 1°n eq 11 and 18*n eg 4 then 

N118s:=sub<N|N118s,n>; end if; end for; 

for n in IM do if 1°n eq 34 and 18°n eq 35 then 
N118s:=sub<N|N118s,n>;end if; end for; 

for n in N do if 1*°n eq 34 and 187n eq 35 then 

N118s:=sub<N|N118s,n>; 

end if; end for; 

#N118; 
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#N118s; 

N118s; 

T118:=Transversal (N,N118s); 
For 4, 2H Peo cH TIAL), sdo 
ss:=[1,18]°T118[i]; 
cst [prodim(l1, ts, ss)]:=ss; 
end for; 
m:=0; for iin [1..66] do if cst[i] ne [] 
then m:=m+l; end if; end for; m; 

#N118s; 
#N/#N118s8; 
Orbits (N118s); 
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for g in IM do for h in IN do if ts[1]*ts[18]*ts[1] 


J*ts[8]) 7h then "true"; break; 
nd for; 


eq gx(ts 
end for; 


eq gx(ts[1]*ts[8])7h then "true"; break; 
end for; end for; 
for g in IM do for h in IN do if ts[1]*ts 


eq g*(ts[5])*h then "true"; break; end if; 


end for; end for; 


for g in IM do for h in IN do if ts[1]*ts 


eq gx(ts[1l]*ts[12])*h then "true"; break; 
end for; end for; 


for g in IM do for h in IN do if ts[1]*ts 


1 
e 

for g in IM do for h in IN do if ts[1]*ts[18]*ts[2] 
a 


end if; 


end if; 


[18]*ts[3 


[18]xts[4 
end if; 


[18]*ts[5] 


eq gx(ts[1])*7h then "true"; break; end if; 


end for; end for; 


for g in IM do for h in IN do if ts[1]*ts[18]*ts[6] 


eq gx(ts[1]*ts[8])7h then "true"; break; 
end for; end for; 


for g in IM do for h in IN do if ts[1]x*ts 


eq gx(ts[1l]*ts[12])*h then "true"; break; 
end for; end for; 


for g in IM do for h in IN do if ts[1]*ts 


eq gx(ts[1]*ts[8]) 7h then "true"; break; 
end for; end for; 


end if; 


[18] «ts[7] 
end if; 


[18]xts[10] 
end if; 


for g in IM do for h in IN do if ts[1]*ts[18]*ts[14] 


eq gx(ts[1l]*ts[6])*h then "true"; break; 
end for; end for; 


end if; 
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C.2  U(3,5) over Maximal Subgroup A; 


G<x,y,t>:=Group<x,y,t|x°5,y°2, (x°-l*y) 74, 

(X*Y*X 7 -2*ey*x) 72,t°5, (t,y*x>-lLey) ,t> (x*y*x7-2)=t°4, 
(y*x°2xt* (y*x72)) 74, (y*x72*t72) 77>; 

#G; 

#Sub<G|x,y>; 

£,G1,k:=CosetAction (G, sub<G|x,y>); 
M:=MaximalSubgroups (G1); 

#M; 

#PrimitiveGroup (5,5); 

for iin [1..8] do #M[i] ‘subgroup/120; end for; 

for iin [1..8] do if f(x) in M[i] ‘subgroup and 

f(y) in M[i] ‘subgroup then i; end if; end for; 
C:=Conjugates (G1,M[3] ‘subgroup) ; 

CC:=Setseq(C); 

#CC; 

for iin [1..#CC] do if f(x) in CC[i] and f(y) in CC[i] 
then i; end if; end for; 
C:=Conjugates (G1,M[4] ‘subgroup) ; 

CC:=Setseq(C); 

#CC; 
for iin [1..#CC] do f(x) in CC[i] and f(y) in 

C@ Pa.) then: a7. sendy ast? send. fox 

for i in [1..#CC] do if f(x) in CC[i] and f(y) in 
Cela] “then iy. send. at}: end. fox 
C:=Conjugates (G1,M[5] ‘subgroup) ; 

CC:=Setseq(C); 

for iin [1..#CC] do if f(x) in CC[i] and f(y) in 
CC[i] then i; end if; end for; 
C:=Conjugates (G1,M[6] ‘subgroup) ; 

CC:=Setseq(C); 

for iin [1..#CC] do if f(x) in CC[i] and f(y) in 
CC[i] then i;end if; end for; 
C:=Conjugates (G1,M[7] ‘subgroup) ; 

CC:=Setseq(C); 

for i in [1..#CC] do if f(x) in CC[i] and f(y) in 
CC[i] then i; 

end if; end for; 

C:=Conjugates (G1,M[8] ‘subgroup) ; 

CC:=Setseq(C); 

for iin [1..#CC] do if f(x) in CC[i] and f(y) in 
CC ae) sehen: a3 

end if; end for; 


28 
M8:=CC [28]; 
Generators (M8); 


G<x,y,t>:=Group<x,y,t|x°5,y°2, (x°-lx*y) “4, (x*y*x*° -2*y*x) 72, 
t75, (t,y*x°-lLey) ,t? (x*xy*x7-2)=t7°4, (y*xx>2*t* (y*x?2)) 74, 


(y*x°2xt72)°7>; 
£,G1,k:=CosetAction (G, sub<G|x,y>); 

for g in Gl do if sub<Gl1|f(x),f(y),g> eq M8 then 

A:=g; break; 

end if; end for; 

Order (A); 

W:=WordGroup (G1); 
rho:=InverseWordMap (G1) ; 

A@rho; 

function (W) 

w4 := W.3 * W.1; w3 := W.3°-1; w5 
return w5; 

end function 

AA:=function (W) 

w4 := W.3 * W.1; w3 
return w5; 

end function; 

AA(G); 

te x * t°-l1 

M:=sub<G|x,y,t * x * t*-1>; 

#M; 

#DoubleCosets (G,M, sub<G|x,y>); 
IM:=sub<Gl/f(x),f(y),f(t * x * t*-1)>; 

CompositionFactors (IM); 
ei i Siveyigh Be bw gl whe Ak es Start’ DCE 2 eke ew Gel ais 


w4 * w3; 


W.3°-1; w5 := w4 « w3; 


xx:=S!(1, 6, 11, 4, 2) (5, 22, 20, 19, 24) 

(hy 123 Tay 10), 8)oCL37 1285 23% 16, 14) 5 

yy:=S!(1, 3) (2, 22) (4, 8) (5, 6) (7, 9) (10, 14) (11, 
(13, 15) (16, 20) (17, 18) (19,21) (23,24); 

G<x, y,t>:=Group<x,y,t|x°5,y°2, (x°-lr*y) 74, 


(X*Y*X 7 -2*y*x) 72,t°5, (t,y*xx>-l*y), 

t* (xey*x7-2)=t°4, (yxx°2*t? (y*x°2)) 74, 
(y*x°2xt72)°7>; 
£,G1,k:=CosetAction (G, sub<G|x,y>); 

#k; 

N:=sSsub<S|xx,yy>; 
CompositionFactors (Gl); 
#DoubleCosets (G, sub<G|x, y>, sub<G|x,y>); 


12) 
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HH2:=sub<G|x,y>; 

M:=sub<G|x,y,t * x * t°-1>; 
DoubleCosets (G,M, HH2) ; 

#DoubleCosets (G,M,HH2) ; 
IM:=sub<Gl/f(x),f(y),f(t * x * t*-1)>; 
IN:=sub<G1|f(x),f(y) >; 


ts := [ Id(Gl): iin [1 .. 24] ]; 
ts[1l]:=f(t); 

ts[2]:=f (t* (x*-1)); 
ts[3]:=f(t*y); 
ts[4]:=f (t* (x*-2)); 

ts[5]:=f(t7( x * y)); 

Es [6] s=f(t° (ty # 2) *2))y 
ts[7]:=f(t*> (x72 * y * x7-1)); 
ts[8]:=f(t* (x72 * y * x7-2)); 
ts[9]:=f£(t* (x72 * y * x7-1 * y)); 
ts[10]:=f (t* (x7-2 * y * x*-1)); 
ts[1ll]:=£(t* (x*2)); 

ts[12]:=f(t* (x72 * y)); 
ts[13]:=f(t*( (x72 * y * x*-1)72)); 
ts[14]:=£(t* ((x*2 * y)*2)); 
ts[15]:=£(t* (x*-l * y * x * y * x°2 * y+); 
ts[16]:=f(t*(x7*-1l * y * x * y)); 
ts[17]:=f(t* (x72 * y * x)); 
ts[18]:=f(t* (x72 * y * x * y)); 
ts[19]:=f(t> (x * y * x7-2)); 
ts[20]:=f(t* (y*x)); 

ts[21]:=f(t* (x*-1l * y * x72 * y * X)); 
ts[22]:=f£(t*(x*-1 * y)); 
ts[23]:=f(t* (x * y *« x°-1l * y)); 
ts[24]:=f(t> (x * y * x*-1)); 
prodim := function(pt, Q, I) 


V2= Dey 

for i in I do 

vo:= v° (Q[1)); 

end for; 

return v; 

end function; 

cst := [null : i in [1 .. Index(G,sub<G|x,y,t * x * t°-1>)]J] 
where null is [Integers() | ]; 
Orbits (N); 

N1:=Stabiliser (N,[1]); 
SSS:={[1]}; 

SSS:=SSS°N; 


# (SSS); 
Seqq:=Setseq(SSS) ; 
for i in [1..#SSS] do 
for n in IM do 


if ts[l]leq nxts[Rep(Seqq[i])[1]] then print Rep(Seqq[i]); 


end if; end for; end for; 

N1:=Stabiliser (N, [1]); 

SSS:={[1]}; 

SSS:=SSS°N; 

# (SSS); 

Seqq:=Setseq(SSS) ; 

for i in [1..#SSS] do 

for n in IM do 

if ts[l]leq nxts[Rep(Seqq[i])[1]] then print 
Rep (Segq[i]);end if; end for; end for; 

Nis:=N1; 

for n in N do if 1°n eq 6 then 

Nls:=sub<N|Nl1s,n>; end if; end for; 

for n in N do if 1°n eg 11 then 
Nls:=sub<N|Nls,n>;end if; end for; 

for n in N do if 1°n eq 4 then 

Nls:=sub<N|Nls,n>;end if; end for; 

for n in N do if 1°n eq 2 then 

Nls:=sub<N|N1ls,n>; end if; end for; 

for n in N do if 1*n eq 18 then 

Nls:=sub<N|Nls,n>; end if; end for; 

for n in N do if 1*n eq 16 

Nls:=sub<N|N1ls,n>;end if; 

for n in N do if 1°n eq 9 then 

Nls:=sub<N|N1ls,n>;end if; 

for n in N do if 1°n eg 14 t 

Nls:=sub<N|Nls,n>;end if; end for; 
for n in N do if 1*n eg 23 t 
Nls:=sub<N|N1ls,n>;end if; end for; 
for n in N do if 1*n eq 21 then 
Nls:=sub<N|N1s,n>; 
end if; end for; 
for n in N do if 1*n eq 13 then 
Nls:=sub<N|N1s,n>; 

end if; end for; 

Nl; #N1s; 

Nls; 

Tl:=Transversal (N,NI1s); 

FOr & an [L.J4FLTL] do 
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ss:=[1]°T1[il; 

cst [prodim(l1, ts, ss)]:=ss; 

end for; 

m:=0; for iin [1..50] do if cst[i] ne [] 
end if; end for; m; 

N1; #N1s; 

N1; #N1s; 

Orbits (Nl1s); 

#N/#N18S; 

N11:=Stabiliser (N,[1,1]); 
SSS:={[1,1]}; 

SSS:=SSS°N; 

# (SSS); 

Seqq:=Setseq(SSS) ; 

for i in [1..#SSS] do 

for n in IM do 

if ts[1] xts[l]eq n*xts[Rep(Seqq[i]) [1 
[Rep (Seqq[i]) [2] ]then print Rep (Seqq[ 
end if; end for; end for; 

Nlls:=N11; 
Nil; #N11; 


] 
ay 


j«ts 


then m:=m+1; 


for n in N do if 1*n eq 13 and 1*n eq 13 then 


Nlis:=sub<N|N11s,n>; 
end if; end for; 
T1l1l:=Transversal(N,N11s); 
for i in [1..#T11] do 
ss:=[1,1]°T11[il]; 
cst [prodim(l1, ts, ss)]:=ss; 
end for; 
m:=0; for iin [1..50] do if cst[i] ne [] 
then m:=m+l; end if; end for; m; 

Orbits (Nlls); 


for g in IM do for h in IN do if ts[1]*ts[1l]*«ts[13] 


eq gx(ts[l]*ts[1])*h then "true"; 
break; end if; end for; end for; 
#N/#N113; 

Nils; 


for g in IM do for h in IN do if ts[1]*ts[1]«ts[7] 


eq gx(ts[1])*h then "true"; break; 
end if; end for; end for; 
N112:=Stabiliser(N, [1,1,2]); 
SSS:={[1,1,2]}; 

SSS:=SSS°N; 

#SSS; 
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Seqq:=Setseq(SSS) ; 

for i in [1..#SSS] do for n in IM do 

if ts[l]*«ts[l]*«ts[2] eq nx«ts 

[Rep (Seqq[i]) [1] ]*ts[Rep (Seqq[i]) [2] ] 
xts[Rep(Seqq[i]) [3] ]then print Rep(Seqq[i]); 
end if; end for; end for; 

for g in N do if [1,1,2]*g eq [20,20,7] then 
N112:=sub<N|N112,9>; 

end if; end for; 

for g in N do if [1,1,2]°g eq [8,8,19] 

then N112:=sub<N|N112,g>; end if; end for; 
for g in N do if [1,1,2]*g eq [13,13,19] then 
N112:=sub<N|N112,9>; 

end if; end for; 

N112s:=N112; 

N112; #N112; 

#N112s; 

#N/#N1128s; 

T112:=Transversal (N,N112s); 

for 2 in [1..4TL12) do 

ss:=[1,1,2]°T112[i]; 


cst [prodim(l1, ts, ss)]:=ss; 
end for; 
m:=0; for iin [1..50] do if cst[i] ne [] 


then m:=m+l; end if; end for; m; 

Orbits (N112s); 

N112s; 

#N/#N1128; 

for g in IM do for h in IN do if 

ts[l]*ts[1l]«ts[2]«ts[1] 

eq gx(ts[1])*h then "true"; break; end if; 

end for; end for; 

for g in IM do for h in IN do if ts[1l]*ts[l]*«ts[2]xts[1 
eq gx(ts[l]*ts[1])*h then "true"; break; end if; 
end for; end for; 
for g in IM do for h in IN do if ts[1]*ts[l]*«ts[2]xts[2] 
eq gx(ts[1]*ts[1])7“h then "true"; break; 
end if; end for; end for; 

for g in IM do for h in IN do if ts[1]*ts[l]*«ts[2]xts[2 
eq gx(ts[1])*h then "true"; break; 

end if; end for; end for; 

for g in IM do for h in IN do if ts[1]*ts[l]«ts[2]xts[2] 
eq gx(ts[l]«*ts[l]*ts[2])“h then "true"; 

break; end if; end for; end for; 


for g in IM do for h in IN do if 


ts[l]*ts[l]*ts[2]«ts[3] 


eq gx(ts[l]«*ts[l]*ts[2])*h then "true"; 

break; end if; end for; end for; 

for g in IM do for h in IN do if ts[1]*ts[l]*ts[2]x*ts[5] 
eq gx(ts[l]«*ts[l]*ts[2])*h then "true"; 

break; end if; end for; end for; 

for g in IM do for h in IN do if ts[1]*ts[l]*«ts[2]xts[9] 
eq gx(ts[l]«*ts[l]*ts[2])*h then "true"; 

break; end if; end for; end for; 


for g in IM do for h in IN do if 


eq gx (ts[l]«ts[1l]*ts[2])~* 
break; end if; end for; 
N113:=Stabiliser (N 
SSS:={[1,1,3]}; 
SSS:=SSS°N; 
Seqq:=Setseq(SSS) ; 
for i in [1..#SSS 
ce eeritaeatt ]*xts 
s [Rep (Seqq[i]) [ 
ts [Rep (Seqq [i i] 
[3] ]then print Rep (Seqq[ 
end if; end for; 
for g in N do if [1, 
then N113:=sub<N|N1 
For “gin Nido at i[Ly, 
N113:=sub<N|N113,9>; 
end if; end for; 
for g in N do if [1,1,3]7 
N113:=sub<N|N113,9>; 
end if; end for; 
for g in N do if [1,1,3]7 
N113:=sub<N|N113,9>; 
end if; end for; 
for g in N do if [1,1,3]7 
N113:=sub<N|N113,9>; 
end if; end for; 
for g in N.do 2f [1,1,3]7- 
N113:=sub<N|N113,g9>; 
end if; end for; 
£Or Gir Ni -do- wt" [ty 3)" 
N113:=sub<N|N113,9>; 
end if; end for; 
For -G an .Nudo wt [dy ,3)* 
N113:=sub<N|N113,9>; 


] 
[3 
2] 


aS 


as 


end for; 
As 3] 
13,9>; 
AL. 723] 


en 
,{1,1,3]); 


nN 


“g 


= 


“g 


g 


g 


g 


g 


g 


g 


ts[l]«ts[l]«ts[2]«ts[11] 


then "true"; 


ij); 


eg 
nd 


eq 


eq 


eq 


eq 


eq 


eq 


eq 


aie? 


a. Tor; 


do for n in IM do 
eq nx«xts[Rep (Seqq[ 


si i Pee 


3,3,1] 
end for; 
[10,10,11] then 


20,20,6] then 


14,14,12] then 


[23,23,22] then 
[24,24,2] then 
[6,6,20] 


then 


[11,11,10] then 
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end if; end for; 

for g in N do if [1,1,3]°9 eq 
N113:=sub<N|N113,9>; 

end if; end for; 
for g in N do if [1,1,3]°9 eq 
N113:=sub<N|N113,g9>; 

end if; end for; 

for g in N do if [1,1,3]°9 eq 
N113:=sub<N|N113,9>; 


end if; end for; 

for g in N do if [1,1,3]°9 eq 
then N113:=sub<N|N113,g>; end 
for g in N do if [1,1,3]°9 eq 
N113:=sub<N|N113,9>; 

end if; end for; 

for g in N do if [1,1,3]°9 eq 
N113:=sub<N|N113,9>; 

end if; end for; 

for g in N do if [1,1,3]°9g eq 
then N113:=sub<N|N113,g>; end 
for g in N do if [1,1,3]°9g eq 
N113:=sub<N|N113,9>; 

end if; end for; 

for g in N do if ,1,3]°9 eg 
then N113:=sub<N|N113,9g>; end 
for g in N do if [1,1,3]°9g eq 
N113:=sub<N|N113,9>; 

end if; end for; 

for g in N do if [1,1,3]°9 eq 
then N113:=sub<N|N113,g>; end 
for g in N do if [1,1,3]°9 eq 
then N113:=sub<N|N113,g>; end 
for g in N do if [1,1,3]°9 eq 
then N113:=sub<N|N113,g>; end 
for g in N do if [1,1,3]°9 eq 
N113:=sub<N|N113,9>; 

end if; end for; 

for g in N do if [1,1,3]°9g eq 
N113:=sub<N|N113,9>; 

end if; end for; 

N113s:=N113; 

N113s; 

#N/#N1138; 


T113:=Transversal (N,N113s); 
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[16,16,5] then 


[17,17,4] then 


[21,21,7] then 


[5,5,16] 
Lf send: for; 
[12,12,14] then 


[22,22,23] then 


25:23)-24,] 
if; end for; 
18,18,8] then 


4,4,17] 
if; end for; 
19,19,9] then 


Tpohy 2h] 
if; end 
8,8,18] 
if; end 
9,9,19] 
if; end 
ea Sree See 


13 5-L3;,2 then 


for ay an: fle. FT LIS) ao 
ss:=[1,1,3]°T113[i]; 

cst [prodim(l1, ts, ss)]:=ss; 
end for; 
m:=0; for iin [1..50] do if cst[i] ne [] 

then m:=m+l; end if; end for; m; 

Orbits (N113s); 

for g in IM do for h in IN do if ts[1]*ts[1]*ts[3]x«ts[1] 
eq gx(ts[l]*ts[1])*h then "true";break; end if; 

end for; end for; 


— 
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Appendix D 


MAGMA Code for Monomial 


Progenitors 


D.1  ~=PrimitiveGroup(37,2) 


G:=PrimitiveGroup (37,2); 
IsAbelian(G); 
CG:=CharacterTable(G); 


CG; 
xx:=G.1; 
yy:=G.2; 


S:=Subgroups (G) ; 

for iin [1..#S] do if Index(G,S[i] ‘subgroup) eq 
2 then i; end if; end for; 

H:=S[3] ‘subgroup; 

CH:=CharacterTable(H); 

CH; 

#H; 

G; 

for i in [2..37] do for j in [3..20] do if 
Induction(CH[i],G) eq CG[j] then i,j; 

end if; end for; 

end for; 

I:=Induction(CH[2],G); 

I eq CG[11]; 

CH[2]; 

C:=CyclotomicField (37); 

As=[[fCeL, 0). 4 ai ane [hs.c2))3 
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for i,j in [1..2] do A[i,j]:=0; end for; 
GG:=GL(2,C); 

T:=Transversal (G,H); 

#T; 

for i,j in [1..2] do if T[i]*xx*T[j]°-1l in H then 
A[i,j]:=CH[2] (T[i]*xx*T[j]°-1); 

end if; end for; 

GG!A; 

Order (GG!A); 

Order (xXx); 

Br=[[Cel,0)] 2 2 om PL..2)])7 

for i,j in [1..2] do B[i,j]:=0; end for; 

for i,j in [1..2] do if T[i]*yy*T[j]7-1 in H then 
Bli; J] s=CH[2](Tfa)l+yystlgl=1)y 

end if; end for; 


GG!B; 
Order (GG!B); 
mat := function(n,p,D,k) 


for i,j in [1..k] do if T[i]*p*T[j3]°-1 in H then 


if CH[n] (T[i]l*p*T[j]7-1) eq C.1°* 18 then D[i,j]:=37; end if; 
if CH[n] (T[i]l*p*T[j]7-1) eq C.1°19 then D[i,j3]:=145; end if; 
if CH[n] (T[i]*p*T[j]°-1) eq 1 then D[i,j]:=1; end if; 


end if; end for; 

return D; 

end function; 

GG:=GL (2,149); 

A:=[[0,0] : i in [1..2]]; 
AA:=GG!mat (2,xx,A,2); 
BB:=GG!mat (2,yy,A,2); 

Order (AA); 

Order (xx); 

Order (BB); 

Order (yy); 

HH: =sub<GG| AA, BB>; 

#HH; 

#G; 

IsIsomorphic (HH,G) ; 

AA; 

BB; 

C:=CyclotomicField(148) ; 
A:=[[C.1,0] : 1 in [1..2]]; for i,j in [1..2] do A[i,Jj]:=0; 
end for; 

for i,j in [1..2] do if T[i]*xx*«T[j]°-1l in H then 
A[i,j]:=CH[2] (T[i]*xx*T[j]°-1); 
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end if; end for; 

Bs=([ [Ev1 7-0)! 2, 2 an [lew] ly fora, 49) crn. Phe 2] 

do B[i,j]:=0; 

end for; for i,j in [1..2] do if T[i]*yy*T[j]*-1 in H 
then B[i,j]:=CH[2] (T[i]*yy*T[j]7*-1); 

end if; end for; 


perm:= function(n, p, mat) 

/x Return the matrix converted to permutation of S_{nxp}. 
x/ C<u>:=CyclotomicField(p); 

Z:=Integers (); 

Seril7 

for 2 an [len] do s[a]s=1; 

end for; 

z:=Matrix(C,1,n,s) *mat; 

w:=[]; 

for i in [l..n] do j:=0; 

done:=0; 

repeat if z[1,i]/u7j in Z then if Z!(z[1,i]/u’j) ge 
O then w[i] :=n*j3+Z! (z[1,i]/u7j); 

done:=1; 

end if; 


ji=jtl; 
until done eq 1 or j eq p; 
end for; 


for i in [1..(p-1)] do for a in [1..n] do 
wlatixn]:=(Z!w[la]+ixn-1) mod (px*n) + 1; 
end for; 

end for; 

S:=Sym(n*p); 

w:=S!w; 

return wy; 

end function; 

GG:=GL(2,C); 

HH:=sub<Sym(2+*148) |perm(2,148,GG!A),perm(2,148,GG!B 
#HH; 

IsIsomorphic (G, HH) ; 

perm(2,148,GG!A); 

perm(2,148,GG!B); 


Vv 


242 


D.2. PrimitiveGroup(37,3) 


G:=PrimitiveGroup (37,3); 
IsAbelian(G); 
CG:=CharacterTable(G); 


CG; 
xx:=G.1; 
yy:=G.2; 


S:=Subgroups (G) ; 

for iin [1..#S] do if Index(G,S[i] ‘subgroup) eq 3 
then i; end if; end for; 

H:=S[3] ‘subgroup; 

CH:=CharacterTable(H); 

CH; 
#H; #G; 

for iin [2..37] do for j in [4..15] do if 
Induction(CH[i],G) eq CG[j] then i,j; 

end if; end for; 

end for; 

I:=Induction(CH[2],G); 

IT eq CG[10]; 

CH[2]; 

C:=CyclotomicField (37); 

AS=[[Cs170.0:)) -. a. af [3S] ) 4 

for i,j in [1..3] do A[i,j]:=0; end for; 
GG:=GL(3,C); 

T:=Transversal(G,H); 

#T; 

for i,j in [1..3] do if T[i]*xx*«T[j]°-1l in H then 
A[i,j]:=CH[2] (T[i]*xx+*T[Jj]°-1); 

end if; end for; 

GG!A; 

Order (GG!A); 

Order (xx); 

Bi=[ [Crd 70%0), <2 *L. ene ey 

for i,j in [1..3] do B[i,j]:=0; end for; 

for i,j in [1..3] do if T[i]*«yy*T[j]7-1 in H then 
Bli,; J] s=CH[2Z](T ia) +yysT [glo =1); 

end if; end for; 


GG!B; 
Order (GG!B); 
mat := function(n,p,D,k) 


for i,j in [1..k] do if T[i]*p*T[j3]°-1 in H then 
if CH[n] (T[i]l*p*T[j]7-1) eq C.1°3 then D[i,j]:=73; end if; 


if CH[n] (T[i]l*p*T[j]°-1) eq C.1°30 then D[i,j]:=29; end i 
if CH[n] (T[i]l*p*T[j]°-1) eq C.1°4 then D[i,j]:=125; end i 
if CH[n saber Sse ]*-1) eq 1 then D[i,j]:=l;end if; 

end if; end for; 


return a 
end function; 
GG:=GL (3,149); 
ASS (070; 0). # 2 cant, Pre s3) 1]; 
AA:=GG!mat (2, xx,A,3); 
BB:=GG!mat (2,yy,A,3); 
Order (AA); 
Order (Xx); 
Order (BB); 
Order (yy); 
HH:=sub<GG| AA, BB>; 
#HH; 
#G; 
IsIsomorphic (HH,G); 
AA; 
BB; 
C:=CyclotomicField(148) ; 
=[[CuL;.07-0]- ea “an: Ta). ) 9. ers 4 Spain: “Lah ado 
A[i,j3]:=0; 
end for; 
for i,j in [1..3] do if T[i]*xx*«T[j]°-1l in H then 
Ali, 3] :=CH[2] (T[i]*xx*T[j]*-1); 
end if; end for; 
= [C.r1,1040'] >. 2. an: [an B de CEOX 2, ai Live 3} <do 
B[i,j]:=0; end for; for i,j in [1..3] do if T[1i]*yy*T 
[j]°-1l in H then B[i,j]:=CH[2] (T[i]l*yy*T[j3]°-1); 
end if; end for; 
perm:= function(n, p, mat) 


/x* Return the matrix converted to permutation of S_{nxp}. 


*/ C<u>:=CyclotomicField(p); 
Z:=Integers (); 

s:=[]; 

for. & an [l.en] -dos [2] s=2; 
end for; 
z:=Matrix(C,1,n,s) «mat; 
w:=[]; 

for i in [l1..n] do j:=0; 
done:=0; 


Fh Fh 
~e 


~e 


repeat if z[1,i]/u7j in Z then if Z!(z[1,i]/u7j) ge 0 then 


w(i]:=n*j3+Z!(z[1,i]/u*j); 


243 


244 


done:=1; 

end if; 

end if; 

i eae 

until done eq 1 or j eg p; 

end for; 

for iin [1..(p-1)] do for a in [1..n] do 
wlatisxn]:=(Z!wla]+ixn-1) mod (px*n) + 1; 
end for; 

end for; 

S:=Sym(nxp); 

w:=S!w; 

return wy; 

end function; 

GG:=GL(3,C); 

HH:=sub<Sym(3*148) |perm(3,148,GG!A),perm(3,148,GG!B 
#HH; 

IsIsomorphic (G, HH) ; 

perm(3,148,GG!A); 

perm(3,148,GG!B); 


Vv 


D.3.—- PrimitiveGroup(37,4) 


G:=PrimitiveGroup (37,4); 
IsAbelian(G); 
CG:=CharacterTable(G); 


CG; 
xx:=G.1; 
yy:=G.2; 


S:=Subgroups (G); 

for iin [1..#S] do if Index(G,S[i] ‘subgroup) eq 4 

then i; end if; end for; 

H:=S[3] ‘subgroup; 

CH:=CharacterTable(H); 

CH; 

#H; 

#G; 

for i an [2..37] “dé: for Fy an [5.4.13]. -do. at 
Induction(CH[i],G) eq CG[j] then i,j; 

end if; end for; 

end for; 

I:=Induction(CH[2],G); 


I eq CG[9 
CH[2]; 


C:=CyclotomicField (37); 
=[[C.1,0,0,0] 


for 1 


pe Ly 


]; 


[1..4] 


GG:=GL(4,C); 
T:=Transversal (G,H); 


#T; 

for i,j 
A[i,j] 
end if; 
GG!A; 


in 


[1..4] 


Order (GG!A); 


Order (XxX) ; 
=[[C.1,0,0,0] 


for i 
for i,j 
ees aoe 
end if; 
GG!B; 

Order (GG! 
mat := 


end if; 
return D; 


pats) 
in 
:=CH[2] (T[i 
end for; 


y 


[1..4] 
[1..4] 


B); 


kK] 


end for; 


end function; 
GG:=GL (4,149); 


A:=[[0,0,0,0] 
AA:=GG!mat 
BB:=GG!mat 


1 


i 


(2,xx,A,4 


Order (AA); 


Order (xx) ; 


Order ( 


’ 


BB) ; 


Order (yy); 
HH: =sub<GG|AA, BB>; 


#HH; 
#G; 


IsIsomorphic (HH,G) ; 


AA; 


(2,yy,A,4 


in 
do A[i 


in 


i in 


i 
i 


) 
1) 
1) 

) 

) 


[1 


do if Tfi 
:=CH[2] (T[i]*xx*T[j]*- 
end for; 


[1. 
do B[i, 
do if T[i 
]*yy*T[j]*- 


function (n,p,D,k) 
do if T[i] 


wal 


eq 
eq 


eq 
eq 


c 

C 
eq C.1 

C 

1 


]*xx«*T[J] 
1); 


4) 1; 
:=0; 
]*yy*T[J] 
1); 


end for; 
*-] in H then 


*-J] in H then 


then 
then 
then 
then 


D[i, J 


D 
D 
D 
}: 


D[i 
[a 
[a 
[2 


j]:=1 


31a 


j]:=1 


Jes 
a her 


*-] in H then 


9; 
25;end if; 


6;end if; 
ae 


end if; 


O2;end if 


’ 
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BB; 

C:=CyclotomicField(148) ; 

A:=[[C.1,0,0,0] : 1 in [1..4]]; for 1 ,Jj in [1..4] do 
Alay A107 

end for; 


for i,j in [1..4] do if T[i]*xx*«T[j]°-1l in H then 
A[i,j]:=CH[2] (T[i]*xx*T[j]°-1); 

end if; end for; 
B:=[[C.1,0,0,0] : i in [1..4]]; for i,j in [1..4] do 
B[i, Jj] :=0; 
end for; for i,j in [1..4] do if T[i]*yy*T[j]°-1 in H then 
B{i,j]:=CH[2] (Tlil*yy*T[j]*-1); 

end if; end for; 

perm:= function(n, p, mat) 

/x Return the matrix converted to permutation of S_{nx«p}. 
x/ C<u>:=CyclotomicField(p); 

Z:=Integers (); 

s:=[]; 

for iin [1..n] do s[i]:=i; 

end for; 

z:=Matrix(C,1,n,s) «mat; 

w:=[]; 

for i in [l1..n] do j:=0; 

done:=0; 

repeat if z[1,i]/u7j in Z then if Z!(z[1,i]/u7j) ge 0 then 
w[i]:=n*j+Z!(z[1,i]/u7j); 

done:=1; 

end if; 

end if; 

Je-gtay 


until done eq 1 or j eq p; 

end for; 

1..(p-1)] do for a in [1..n] do 
(Z!w[la]t+ixn-1) 

od! 3 


FOr) a. aan, -[ 
wlati*en]:= 
mod (pxn) 
end for; 
end for; 
S:=Sym(nxp); 

w:=S!w; 

return wy; 

end function; 

GG:=GL(4,C); 

HH:=sub<Sym(4+*148) |perm(4,148,GG!A),perm(4,148,GG!B 
#HH; 


Vv 
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IsIsomorphic (G, HH) ; 
perm(4,148,GG!A); 
perm (4,148,GG!B); 


D.4_ PrimitiveGroup(37,5) 


G:=PrimitiveGroup (37,5); 
IsAbelian(G); 
CG:=CharacterTable(G); 


CG; 
xx:=G.1; 
yy:=G.2; 


S:=Subgroups (G) ; 
for iin [1..#S] do if Index(G,S[i] ‘subgroup) eq 6 
then i; end if; end for; 
H:=S[4] ‘subgroup; 
CH:=CharacterTable(H); 
CH; 
#H; 
#G; 
fOr VL, Wr [2.87]. do. for Fy an P%...12] do. at 
Induction(CH[i],G) eq CG[j] then i,j; 
end if; end for; 
end for; 
I:=Induction(CH[7],G); 
I eq CG[12]; 
CH[7]; 
C:=CyclotomicField (37); 
= [PFCs 05.0::0%-0,.0)) aan [1.46] ) 4 
for i,j in [1..6] do A[i,j]:=0; end for; 
GG:=GL(6,C); 
T:=Transversal (G,H); 
#T; 
for i,j in [1..6] do if T[i]*xx*T[j]°-l in H then 
Ali, j]:=CH[7] (T[i]*xx*T[j]*-1); 
end if; end for; 
GG!A; 
Order (GG!A); 

Order (xx); 
=[[C.1,0,0,0,0,0] : i in 
FOr: a \ 7). dine [aes ./6:]\. do; Bf ay 4 
for i,j in [L...6] do. tf Tit 
B[i, j]:=CH[7] (Tlil+*yy*T[3] 


[1..6]]; 

]:=0; end for; 

Jaye E41 °-1 in H then 
Sel 
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end if; end for; 


GG!B; 

Order (GG!B); 

mat := function(n,p,D,k) 

for i,j in [1..k] do if T[i]*p*T[j]*-1 in H then 

if CH[n] (T[i]l*p*T[j]*-1) eq C.1* 23 then D[i,j]:=96; end if; 
if CH[n] (T[il*p*T[j]°-1) eq C.1°31 then D[i,j]:=17;end if; 
if CH[n] (T[i]l*p*T[j]°-1) eq C.1°8 then D[i, j]:=129;end if; 
if CH[n] (T[i]l*p*T[j]7-1) eq C.1° 14 then D[i,j]:=104;end if; 
if CH[n] (T[i]l*p*T[j]°-1) eq C.1° 6 then D[i,j]:=114;end if; 
if CH[n] (T[il*p*T[j]7-1) eq C.1* 29then D[i,j]:=67;end if; 
if CH[n] (T[i]*p*T[j]°-1) eq 1 then D[i,j]:=l;end if; 


end if; end for; 
return D; 

end function; 
GG:=GL(6,149); 
As=[[0;0,0,0,0,0] <a an [1.61]; 
AA:=GG!mat (7,xx,A, 6); 
BB:=GG!mat (7,yy,A, 6); 
Order (AA); 

Order (Xx); 

Order (BB); 

Order (yy); 
HH:=sub<GG|AA, BB>; 


#HH; 

#G; 

IsIsomorphic (HH,G); 

AA; 

BB; 
C:=CyclotomicField(148) ; 
A:=[[C.1,0,0,0,0,0 


]) oss Be aE Le Oye dO. ab gegen 
[1..6] do Ali, j]:=0; 

end for; 
for i,j in [1..6] do if T[i]*xx*«T[j]°-1l in H then 
Ali, 3]:=CH[7] (T[i]*xx*T[j]°-1); 

end if; end for; 
Bs = [C.17-07'0; 0,0, 0) -3. tan. Pi. 6) 7 tor a. 74 4n 

[1..6] do B[1i,j]:= 

end for; for i,j in [1..6] do if T[i]*yy*T[j]°-1 in H then 
B[i, 3] :=CH[7] (Tlil*yy*T[3]*-1); 

end if; end for; 


perm:= function(n, p, mat) 
/x Return the matrix converted to permutation of S_{nxp}. 
x/ C<u>:=CyclotomicField(p); 
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Z:=Integers (); 

s:=[]; 

Fore ds an. -[ len]! -dGes: [|= aty 
end for; 
z:=Matrix(C,1,n,s) «mat; 

w:=[]; 

for iin [l..n] do j:=0; 
done:=0; 

repeat if z[1,i]/u7j in Z then if Z2!(z[1,i]/u*j) ge 0 then 
w[i]:=n*j+Z!(z[1,i]/u*j); 
done:=1; 

end if; 


jee Je Ly 


until done eq 1 or j eq p; 

end for; 

for iin [1..(p-1)] do for a in [1..n] do 
wlatiten]:=(Z!w[a]+ixn-1) mod (pn) + 1; 
end for; 

end for; 

S:=Sym(nxp); 

w:=S!w; 

return wy; 

end function; 

GG:=GL(6,C); 

HH:=sub<Sym(6*148) |perm(6,148,GG!A),perm(6,148,GG!B 
#HH; 

IsIsomorphic (G, HH) ; 

perm(6,148,GG!A); 

perm(6,148,GG!B); 


Vv 


D.5~ PrimitiveGroup(37,6) 


G:=PrimitiveGroup (37, 6); 
IsAbelian(G); 
CG:=CharacterTable(G); 


CG; 
xx:=G.1; 
yy:=G.2; 


S:=Subgroups (G) ; 

for iin [1..#S] do if Index(G,S[i] ‘subgroup) eq 9 
then i; end if; end for; 

H:=S[3] ‘subgroup; 
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CH:=CharacterTable(H)j; 
CH; 
#H; 
#G; 
for iin [2..37] do for j in [10..13] do if 
Induction(CH[i],G) eq CG[j] then i,j; 
end if; end for; 
end for; 
I:=Induction(CH[12],G); 
I eq CG[10]; 
[ 


12]; 

C:=CyclotomicField (37); 

A:=[[C.1,0,0,0,0,0,0,0,0] : i in [1..9]]; 
for i,j in [1..9] do A[i,j]:=0; end for; 
GG:=GL(9,C); 

T:=Transversal(G,H); 

#T; 

for i,j in [1..9] do if T[i]*xx*«T[j]°-1l in H then 
Ali, j]:=CH[12] (T[i]*xx+*T[j]*-1); 

end if; end for; 

GG!A; 

Order (GG!A); 

Order (xXx); 

Bee (iC. 1;.0;.0:;,0'0;:070.0,-0)] 3 aan [IO T 4 
for i,j in [1..9] do B[i,j]:=0; end for; 
for i,j in [1..9] do if T[i]*yy*T[j]°-1 in H then 

Bla, j]s=CHLL4) (2 laleyysT go —L); 

end if; end for; 

GG!B; 

Order (GG!B); 

mat := function(n,p,D,k) 


for i,j in [1..k] do if T[i]*p*T[j]*-1 in H then 

if CH[n] (T[i]l*p*T[j]*-1) eq C.1° 18 then D[i,j]:=37; end if; 
if CH[n] (T[il*p*T[j]7-1) eq C.1°15 then D[i,j]:=25;end if; 
if CH[n] (T[i]l*p*T[j]°-1) eq C.1°31 then D[i,j]:=17;end if; 
if CH[n] (T[il*p*T[j]7-1) eq C.1* 32 then D[i,j]:=123;end if; 
if CH[n] (T[i]l*p*T[j]°-1) eq C.1°2 then D[i,j]:=107;end if; 
if CH[n] (T[i]l*p*T[j]7-1) eq C.1* 14 then D[i,j]:=104;end if; 
if CH[n] (T[i]*p*T[j]*-1) eq C.1° 24 then D[i,j]:=46;end if; 
if CH[n] (T[i]l*p*T[j]7-1) eq C.1* 20 then D[i,j]:=85;end if; 
if CH[n] (T[i]l*p*T[j]°-1) eq C.1° 29 then D[i,j]:=67;end if; 
if CH[n] (T[i]l*p*T[j]°-1) eq 1 then D[i,j]:=l;end if; 


end if; end for; 
return D; 


end function; 
GG:=GL(9,149); 
A:=[[0,0,0,0,0,0,0,0,0] : 1 in [1..9]]; 
AA:=GG!mat (12,xx,A,9)j; 
BB:=GG!mat (12,yy,A,9); 
Order (AA); 

Order (xx); 

Order (BB); 

Order (yy); 
HH:=sub<GG|AA, BB>; 
#HH; 

#G; 

IsIsomorphic (HH,G); 


B; 
:=CyclotomicField(148),; 

2=[ [Cs 14.0;,0:,:0 0 7.0.,0;7707.0)] 3-2 Sam. PL Oss Fora. 5.5 
in [1..9] do A[i,j]:=0; 

end for; 

for i,j in [1..9] do if T[i]*xx*T[j]°-1l in H then 
Ali, j]:=CH[12] (T[i]*xx*T[j]°-1); 

end if; end for; 

Br=[[C.1;,.0,0,0,0,070,;.0,0] 2 a-in [1..9]]; for 2.3 

in [1..9] do B[i,j]:=0; 

end for; for i,j in [1..9] do if T[i]*yy*T[j]°-1 in H then 

B[i,3]:=CH[12] (Tlil*yy*T[4]*-1); 

end if; end for; 

perm:= function(n, p, mat) 

/x Return the matrix converted to permutation of S_{nxp} 
*/ C<u>:=CyclotomicField(p) ; 

Z:=Integers (); 

S2= ly 

for iin [1..n] do s[i]:=i1; 

end for; 

z:=Matrix(C,1,n,s) *mat; 

w:=([]; 

for i in [l..n] do j:=0; 

done:=0; 

repeat if z[1,i]/u7j in Z then if Z!(z[1,i]/u*j) ge 0 then 
w[i]:=n*j+Z!(z[1,i]/u*j); 

done:=1; 

end if; 

end if; 


BI 
C. 
A 


je gh ee 
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until done eq 1 or j eq p; 
end for; 
for iin [1..(p-1)] do for a in [1..n] do 
wlatisen]:=(Z!wla]+i*xn-1) mod (p*n) + 1; 

end for; 

end for; 

S:=Sym(nxp); 

w:=S!w; 

return wy; 

end function; 

GG:=GL(9,C); 

HH:=sub<Sym(9*148) |perm(9,148,GG!A),perm(9,148,GG!B 
#HH; 

IsIsomorphic (G, HH) ; 

perm(9,148,GG!A); 

perm(9,148,GG!B); 


Vv 


D.6—-PrimitiveGroup(37,7) 


G:=PrimitiveGroup (37,7); 
IsAbelian(G); 
CG:=CharacterTable(G); 


CG; 
xx:=G.1; 
yy:=G.2; 


S:=Subgroups (G); 
for iin [1..#S] do if Index(G,S[i] ‘subgroup) eq 12 
then i; end if; end for; 
H:=S[4] ‘subgroup; 
CH:=CharacterTable(H); 
CH; 
#H; 
#G; 
fOr 32,21 [26.37] “deo for 7 an: [ISe.15)] do Tt 
Induction(CH[i],G) eq CG[j] then i,j; 
end if; end for; 
end for; 
I:=Induction(CH[14],G); 
T eq CG[15]; 
[ 


CH[14]; 
C:=CyclotomicField(37); 
A:=[[C.1,0,0,0,0,0,0,0,0,0,0,0] : i in [1..12]]; 


£Or 1 


#T; 
£Or:*i,, 


A[i,j]: 


end if 
GG!A; 


,jJ in [1..12] do A[i,j]:=0; end for; 
GG:=GL(12,C); 
T:=Transversal (G,H); 


’ 


’ 


in [1..12] do if T[i]*xx*T[j]*-1l in H then 
=CH[14] (T[i]*xx*T[j]*-1); 
end for; 


Order (GG!A); 
Order (xx); 
Bs=[ [Cet -0570-:0,,0;-03:0 ,04.05.05-0;:0), 4) a ane [bs <l2] ]4 


FOR. 2 
£Or. L, 


end if 
GG!B; 


po a0, (Leal) 0 - Bia p494 


J 


B[i,j]: 


’ 


QO; end for; 

in [1..12] do if T[i]l*yy+*T[j]°-1 in H then 
=CH[14] (T[il*yy*T[j]*-1); 

end for; 


Order (GG!B); 


mat := 


£Or LJ 


if 
if 
if 
if 
if 
deh 
Le 
oe 
LP 
Lt 
ce 
aie 
alte 
end if 


OOO (Oe OO) 2@, <Q) Gt Qi GY Oy 
tbe Re Bee ee ees 


’ 


function (n,p,D,k) 


in [1..k] do if T[i]*p*T[j]°-1 in H then 
(TLi]*xp*T[j]°-1) eq C.1* 23 then D[i,j]:=96; end if; 
(Tli]*xp*T[j]°-1) eq C.1°26 then D[i,j]:=5;end if; 

] (TLi] *p*T[3]°-1) eq C.1°31 then D[i,jJ:=17;end if; 
(Tli]*xp*T[j]°-1) eq C.1* 27 then D[i,j]:=80;end if; 
(TLi]*p*T[j]°-1) eq C.1°8 then D[i,j]:=129;end if; 
(T[i]*xp*T[j]°-1) eq C.1 then D[i,j]:=16;end if; 
(T[i]*px*xT[j]°-1) eq C.1* 14 then D[i,j]:=104;end if; 
(Tli]*xp*T[j]°-1) eq C.1* 11 then D[i,j]:=30;end if; 
(TLi]*xp*T[j]°-1) eq C.1* 6 then D[i,j]:=114;end if; 
(T[i]*xp*T[j]°-1) eq C.1* 10 then D[i,j]:=95;end if; 
(T[i]*xp*T[j]°-1) eq C.1* 29 then D[i,j]:=67;end if; 
(T[i]*xp*T[j]°-1) eq C.1°36 then D[i,j]:= 28;end if; 
(T[i]l*xp*T[j]°-1) eq 1 then D[i,j]:=l;end if; 
end for; 


return D; 

end function; 

GG:=GL(12,149); 

A:=[[0,0,0,0,0,0,0,0,0,0,0,0] : i in [1..12]]; 
AA:=GG!mat (14,xx,A,12); 


BB:=GG!mat (14,yy,A,12); 


Order (AA); 
Order (xXx); 


Order ( 


BB) ; 


Order (yy); 
HH:=sub<GG|AA, BB>; 
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#HH; 

#G; 

IsIsomorphic (HH,G); 

AA; 

BB; 

C:=CyclotomicField(148) ; 
A:=[[C.1,0,0,0,0,0,0,0,0,0,0,0] : i in [1..12]]; 


for i,j in [1..12] do A[i,j]:=0; 
end for; 
for i,j in [1..12] do if T[i]*xx*T[j]°-l in H then 

A[i, 3]:=CH[14] (T[i] *xx*T[j]°-1); 
end if; end for; 
B:=[ [E217 0;70;/0;,.0,; 0;:0;0,:0,.07:0, 0) -: 2 tn. /[de.l2)]9 

for i,j in [1..12] do B[i,j]:=0; 
end for; for i,j in [1..12] do if T[i]*yy*T[j3]°-1 in H then 
B[i,J]s=CH[14) (Tlil*yy*T[9]°-1); 


end if; end for; 

perm:= function(n, p, mat) 

/x Return the matrix converted to permutation of S_{nxp}. 
x/ C<u>:=CyclotomicField(p); 

Z:=Integers (); 

s:=[]; 

for iin [1..n] do s[i]:=1; 

end for; 

z:=Matrix(C,1,n,s) «mat; 

w:=[]; 

for i in [1..n] do j:=0; 

done:=0; 

repeat if z[1,i]/u7j in Z then if Z2!(z[1,i]/u7j) ge 0 then 
w[i]:=n*j+Z!(z[1,i]/u*j); 

done:=1; 

end if; 

end if; 

a leg 

until done eq 1 or j eg p; 

end for; 


p-1)] do for a in [1..n] do 


for as any -[ 12. 
=(Z!w[a]+ixn-1) mod (pxn) + 1; 


wlati¢en]: 
end for; 
end for; 
S:=Sym(nxp); 
w:=S!w; 
return wy; 

end function; 
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GG:=GL(12,C); 

HH:=sub<Sym(12*148) |perm(12,148,GG!A),perm(12,148,GG!B) >; 
#HH; 

IsIsomorphic (G, HH); 

perm(12,148,GG!A) ; 

perm(12,148,GG!B); 


D.7 ~PrimitiveGroup(37,8) 


G:=PrimitiveGroup (37, 8); 
IsAbelian(G); 
CG:=CharacterTable(G); 


CG; 
xx:=G.1; 
yy:=G.2; 


S:=Subgroups (G) ; 

for iin [1..#S] do if Index(G,S[i] ‘subgroup) eq 18 

then i; end if; end for; 

H:=S[4] ‘subgroup; 

CH:=CharacterTable(H); 

CH; 

#H; 

#G; 

for iin [2..37] do for j in [19..20] do if 

Induction(CH[i],G) eq CG[j] then i,j; 

end if; end for; 

end for; 

Induction(CH[14],G); 

IT eq CG[20]; 
[ 


14]; 
C:=CyclotomicField (37); 
A:=[[C.1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0] : i in [1..18]]; 
for i,j in [1..18] do A[i,j]:=0; end for; 
GG:=GL(18,C); 
T:=Transversal(G,H); 
#T; 
for i,j in [1..18] do if T[i]*xx*T[j]°-l in H then 
A[i, 3]:=CH[14] (T[i] *xx*T[j]°-1); 
end if; end for; 
GG!A; 
Order (GG!A); 
Order (xx); 


B:=[[C.1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0] 


do B 


[i,j] :=0; 


end for; 


i 


in 


do if T[i]l*yy*T[j]*-1 in H then 
=CH[14] (T[i] *yy*T[j]*-1); 


if 


n 
t t t t t t t t t t t t t t t t t t t 
~~~ rworvo vo vo re He YH He He Heo veo Yo Ye ror vr wr WH 


for i,j in [1..18] 
FOr. dy} amt [1.18] 
Bli, dl: 
end if; end for; 
GG!B; 
mat function (n,p,D,k) 
for i,j in [1..k] do 
if CH[n] (T[i]*p*T[j]~7 
if CH[n] (T[i]*p*T[j3]~7 
if CH[n] (T[i]*p*T[j]~7 
if CH[n] (T[i]*p*T[j3]7 
if CH[n] (T[i]*p*T[j3]~7 
if CH[n] (T[i]*p*T[j3]7 
if CH[n] (T[i]*p*T[j]~ 
if CH[n] (T[i]*p*T[j]~7 
if CH[n] (T[i]*p*T[j]7 
if CH[n] (T[i]*p*T[j3]7 
if CH[n] (T[i]*p*T[j]7 
if CH[n] (T[i]*p*T[j]~7 
if CH[n] (T[i]*p*T[j]7 
if CH[n] (T[i]*p*T[j]7 
if CH[n] (T[i]*p*T[j]7 
if CH[n] (T[i]*p*T[j]7 
if CH[n] (T[i]*p*T[j]~7 
if CH[n] (T[i]*p*T[j]* 
if CH[n] (T[i]*p*T[j]7 
end if; end for; 


return D; 
end function; 

GG:=GL(18,149); 
A:=[[0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0] 


AA:=GG! mat 
BB:=GG!mat 


( 
( 


Order (AA); 
Order (xXx); 


Order ( 


BB) ; 


14,xx,A, 
14,yy,A, 


HH:=sub<GG| AA, BB>; 


#HH 
#G; 


AA; 
BB; 


C:=CyclotomicField(148) ; 


Ua 


IsIsomorphic (HH,G); 


18); 
18); 


T[i]*xpx«T 


eq 
eq 
eq 
eq 
eq 
eq 
eq 
eq 
eq 
eq 
eq 
eq 
eq 
eq 
eq 
eq 
eq 
eq 
eq 


AMO OQ) Ce “EP. Gi Qe Cs "Cd Oe GhGh CE iEPsGo@) 


44 


44 


44 


A 


123 


444 


[3] 
29 
35 
18 


ct ct 


i in 


fide 


[1..18]]; 


*-1 in H then 

then D[i,j]:=67;end if; 
then D[i,j]:=39; end if; 
then D[i,j]:=37; end if; 
then D[i,j]:=96; end if; 
then D[i,j]:=25; end if; 
then D[i,j]:=81; end if; 
then D[i,j]:=17; end if; 
then D[i,j]:=142; end if; 
then D[i,j]:=123; end if; 
hen D[i,j]:=129; end if; 
hen D[i,j]:=107; end if; 
then D[i,j]:=145; end if; 
then D[i,j]:=104; end if; 
then D[i,j]:=6; end if; 
then D[i,j]:=46; end if; 
hen D[i,j3]:=114; end if; 
then D[i,j]:=85; end if; 
hen D[i,j]:=63; end if; 
D[i,j]:=l;end if; 
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A:=[[C.1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0] 

i in [1..18]]; for i,j in [1..18] do A[i,j]:=0; 
end for; 
for i,j in [1..18] do if T[i]*xx*T[j]°-l in H then 

A[i, 3]:=CH[20] (T[i]*xx*T[j]°-1); 
end if; end for; 

:=[[C.1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0] 

iin [1..18]]; for i,j in [1..18] do B[i,j]:=0; 
end for; for i,j in [1..18] do if T[i]*yy*T[j3]°-1 in H then 
B[i, 3] :=CH[20] (Tlil*yy*T[3]*-1); 
end if; end for; 
perm:= function(n, p, mat) 

/x Return the matrix converted to permutation of S_{nxp}. 
x/ C<u>:=CyclotomicField(p); 

Z:=Integers (); 

SoS h1% 

for iin [1..n] do s[i]:=i; 

end for; 

z:=Matrix(C,1,n,s) *mat; 

w:=[]; 

for i in [l..n] do j:=0; 

done:=0; 

repeat if z[1,i]/u7j in Z then if Z!(z[1,i]/u7j) ge 0 then 
w[i]:=n*j+Z!(z[1,i]/u*j); 

done:=1; 


Sea je 


until done eq 1 or j eg p; 

end for; 

fOr A, in [la aa(pHLj) do: tox a: tn;. [Tan] do 
wlatiten]:=(Z!w[a]+ixn-1) mod (pen) + 1; 
end for; 

end for; 

S:=Sym(nxp); 

w:=S!w; 

return wy; 

end function; 

GG:=GL(18,C); 

HH:=sub<Sym(18+*148) |perm(18,148,GG!A),perm(18,148,GG!B)>; 
#HH; 

IsIsomorphic (G, HH); 

perm(18,148,GG!A) ; 

perm(18,148,GG!B); 
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D.8 ~=PrimitiveGroup(37,9) 


G:=PrimitiveGroup (37,9); 
IsAbelian(G); 
CG:=CharacterTable(G); 


CG; 
xx:=G.1; 
yy:=G.2; 


S:=Subgroups (G) ; 

for iin [1..#S] do if Index(G,S[i] ‘subgroup) eq 36 
then i; end if; end for; 

H:=S[4] ‘subgroup; 

CH:=CharacterTable(H); 


:=Induction(CH[2],G); 

IT eq CG[37]; 

C:=CyclotomicField (37); 
A:=[[C.1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 

7 07:0: 0; 07-07070,.0, 0, 0;,0,70,0] £2 an [1.236] ].7 

for i,j in [1..36] do A[i,j]:=0; end for; 

GG:=GL(36,C); 

T:=Transversal (G,H); 

#T; 

for i,j in [1..36] do if T[i]*xx*T[j]°-l in H then 

Ali, 3] :=CH[2] (T[i]*xx*T[j]*-1); 

end if; end for; 

GG!A; 
B:=[[C.1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0, 

0, 0,0, 0,0;,0,0,.0,.0,0,0,0,;0)] ¢ 1 an, [1..36]]; 

for i,j in [1..36] do B[i,j]:=0; end for; 

for i,j in [1..36] do if T[i]*yy*T[j]*-1 in H then 

By eSChl a (Pla reyys tba lo 2s 

end if; end for; 

GG!B; 

mat := function(n,p,D,k) 

for i,j in [1..k] do if T[i]*p*T[j]°-1 in H then 

if CH[n] (T[i]l*p*T[j]7-1) eq C.1 then D[i,j]:=16; end if; 
if CH[n] (T[i]l*p*T[j]7-1) eq C.1°19 then D[i,j]:=145; end if; 
if CH[n] (T[i]l*p*T[j]°-1) eq C.1°28 then D[i,j]:=88; end if; 


ge pou yi es os he a pou 
ce ce cc ee ce ce cc ee 


RCE e pee Re ROR eee eee eee ERs eee ee ee Sere eRe eee wee eC eRe ee eR ee ame emer a eee 


a 


HHAHH HAHAHAHA 
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]*xp*T[j]°-1) eq C.1°714 then D[i,j]:=104; end if; 
]*p*T[j]°-1) eq C.1°7 then D[i,j]:=36; end if; 
]*p*T[Jj]°-1) eq C.1°22 then D[i,j]:=6; end if; 
]*p*T[j]°-1) eq C.1°711 then D[i,j]:=30; end if; 
]*p*T[j]°-1) eq C.1°24 then D[i,j]:=46; end if; 
]*p*T[j]°-1) eq C.1°712 then D[i,j]:=33; end if; 
]*p*T[j]°-1) eq C.1°6 then D[i,j]:=114; end if; 
]*p*T[j]°-1) eq C.1°3 then D[i,j]:=73; end if; 
]*p*T[j]°-1) eq C.1°720 then D[i,j]:=85; end if; 
]*p*T[j]°-1) eq C.1°710 then D[i,j]:=95; end if; 
]*p*T[j]°-1) eq C.1°5 then D[i,j]:=63; end if; 
]*p*T[j]°-1) eq C.1°21 then D[i,j]:=19; end if; 
]*p*T[j]°-1) eq C.1°29 then D[i,j]:=67; end if; 
]*p*T[j]°-1) eq C.1°33 then D[i,j]:=31; end if; 
]*p*T[j]°-1) eq C.1°35 then D[i,j]:=39; end if; 
]*p*T[j]°-1) eq C.1°36then D[i,j]:=28; end if; 
]*p*T[j]°-1) eq C.1°718 then D[i,j]:=37; end if; 
]*p*T[j]°-1) eq C.1°9 then D[i,j3]:=127; end if; 
]*p*T[j]°-1) eq C.1°723 then D[i,j]:=96; end if; 
]*p*T[j]°-1) eq C.1°30 then D[i,j]:=29; end if; 
]*p*T[J]°-1) eq C.1°15 then D[i,j]:=25; end if; 
]*p*T[j]°-1) eq C.1°26 then D[i,j]:=5; end if; 
]*p*T[j]°-1) eq C.1°713 then D[i,j]:=81; end if; 
]*p*T[j]°-1) eq C.1°25 then D[i,j]:=140; end if; 
]*p*T[j]°-1) eq C.1°31 then D[i,j]:=17; end if; 
]*p*T[j]°-1) eq C.1°34 then D[i,j]:=49; end if; 
]*p*T[j]°-1) eq C.1°17 then D[i,j3]:=142; end if; 
]*p*T[j]°-1) eq C.1°27 then D[i,j]:=80; end if; 
]*p*T[j]°-1) eq C.1°32 then D[i,j]:=123; end if; 
]*p*T[j]°-1) eq C.1716 then D[i,j]:=102; end if; 
]*p*T[j]°-1) eq C.1°8 then D[i,j]:=129; end if; 
]*p*T[j]°-1) eq C.1°4 then D[i,j]:=125; end if; 
]*p*T[j]°-1) eq C.1°2 then D[i,j]:=107; end if; 
]*p*T[j]°-1) eq 1 then D[i,j]:=1; end if; 
]*p*T[j]°-1) eq 1 then D[i,j]:=1; end if; 
]*p*T[j]°-1) eq 1 then D[i,j]:=1; end if; 
]*p*T[j]°-1) eq 1 then D[i,j]:=1; end if; 
]*p*T[j]°-1) eq 1 then D[i,j]:=1; end if; 
]*p*T[j]°-1) eq C.1°2 then D[i,j]:=107; end if; 
]*p*T[j]°-1) eq 1 then D[i,j]:=1; end if; 
]*p*T[j]°-1) eq 1 then D[i,j]:=1; end if; 
]*p*T[j]°-1) eq 1 then D[i,j]:=1; end if; 
]*p*T[j]°-1) eq C.1°736 then D[i,j]:=28; end if; 
]*p*T[j]°-1) eq C.1°718 then D[i,j]:=37; end if; 


1f CH[n] (T[1i] «p+Tl[ 
1f CH[n] (T[1i] *p+Tl[ 
1f CH[n] (T[1i] «p+*Tl[ 
1f CH[n] (T[1i] *p*Tl[ 
1f CH[n] (T[1i] *p+Tl[ 
1f CH[n] (T[1i] *p+Tl[ 
1f CH[n] (T[1i] *p+Tl[ 
1f CH[n] (T[1i] *p+Tl[ 
1f CH[n] (T[1i] *«p+Tl[ 
1f CH[n] (T[1i] *p+Tl[ 
1f CH[n] (T[1i] *p+Tl[ 
if CH[n] (T[1i] *p+Tl[ 
if CH[n] (T[1i] *p+Tl[ 
1f CH[n] (T[1i] *p+Tl[ 
1f CH[n] (T[1i] *p*Tl[ 
1f CH[n] (T[1i] *p+Tl[ 
1f CH[n] (T[1i] *p+Tl[ 
1f CH[n] (T[1i] *p*Tl[ 
if CH[n] (T[1i] *p+*Tl[ 
1f CH[n] (T[1i] *p+Tl[ 
1f CH[n] (T[1i] *p+*Tl[ 
1f CH[n] (T[1i] *p+Tl[ 
1f CH[n] (T[1i] *«p+Tl[ 
1f CH[n] (T[1i] *p+Tl[ 
end if; end for; 


return D; 


end function; 


GG:=GL (36,149); 
A:=[[0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0, 
0,0,0,0,0,0,0,0,0,0,0,0] 


AA:=GG! mat 


B 


# 


HH; 


Lode toy. toe lode oy. Co toy. tole tole lol Co. tl. Lo. Loe Los Co. Loe Le to. Ly. la. tL. lol. to. 


n n n r IL n n n n n n n n n n n n n n n n n n n 
t t t t t t t t t t t t t t t t t t t t t t t t 
~~~ ro veo reo He ve veo ve re Hoe re YH PHS PH Pe PH PHS PH PH YH YH PS WH 


t(2,xx,A,36); 
B:=GG!mat (2, yy,A,36); 
H:=sub<GG|AA,BB>; 


IsIsomorphic (HH,G); 
AA; 


B 


B; 


Order (AA); 
Order (xx); 
Order (BB); 
C:=CyclotomicField(148); 
A:=[[C.1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0, 
0,0,0,0,0,0,0,0,0,0,0,0,0,0] 
in. [1.4.36] 


do Afi 


Fase 


eq 
eq 
eq 
eq 
eq 
eq 
eq 
eq 
eq 
eq 
eq 
eq 
eq 
eq 
eq 
eq 
eq 
eq 
eq 
eq 
eq 
eq 
eq 
eq 


C.1°9 then D[i,j]:=127; end if; 
C.1°23 then Di, 7] +=96; end 2f£; 
€.1°30 then Difi,9)]+=29;. end if; 
C.1°7 then D[i,j]:=36; end if; 
1 then D[1i,j]:=1; end if; 

1 then D[1i,j]:=1; end if; 

1 then D[1i,j]:=1; end if; 
C.1°30 then D[i,j3]:=29; end if; 
C.1°15 then D[i,j]:=25; end if; 
C.1°26 then D[i,j]:=5; end if; 
C.1°13 then D[i,j]:=81; end if; 
C.1°20 then D[i,j]:=85; end if; 
C.1°15 then D[i,j]:=25; end if; 
C.1°13 then D[i,j3]:=81; end if; 
C.1°25 then D[i,j3]:=140; end if; 
C.1°31 then D[i,j]:=17; end if; 
C.1°34 then D[i,j3]:=49; end if; 
C.1°17 then D[i,j3]:=142; end if; 
C.1°27 then D[i,j]:=80; end if; 
C.1°27 then D[i,j]:=80; end if; 
1 then D[1i,j]:=1; end if; 

1 then D[1i,j]:=1; end if; 

1 then D[1i,j]:=1; end if; 

1 then D[1i,j]:=1; end if; 
ay, Sen IEP, 253 '6) JM 

i in [1..36]]; fori ,j 
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end for; 

for i,j in [1..36] do Tf Tl1])*xxsT[ 3) °-2 in H then 

Ali, 3] :=CH[2] (T[i]*xx*T[j]*-1); 

end if; end for; 
B:=[[C.1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0, 
0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0] : i in [1..36]]; for i ,j 
in, [144536] sdo. Bl, 3] :=0; 

end for; for i,j in [1..36] do if T[i]*yy*T[j3]°-1 in H then 
B[i, 3] :=CH[2] (Tlil*yy*T[3]*-1); 

end if; end for; 

perm:= function(n, p, mat) 

/x Return the matrix converted to permutation of S_{nxp}. 
*/ C<u>:=CyclotomicField(p); 

Z:=Integers (); 

s:=[]; 

for iin [1..n] do s[i]:=i; 

end for; 


z:=Matrix(C,1,n,s) *xmat; 

w:=[]; 

for iin [1l..n] do j:=0; 

done:=0; 

repeat if z[1,i]/u7j in Z then if Z!(z[1,i]/u7j) ge 0 then 
w[i]:=n*j+Z!(z[1,i]/u*j); 

done:=1; 

end if; 

end if; 

Jaa gly 

until done eq 1 or j eq p; 

end for; 

FOr! a. aon sf... Gob]. -do:. for a in [i..n] do 
wlatiten]:=(Z!w[a]+ixn-1) mod (pn) + 1; 
end for; 

end for; 

S:=Sym(nxp); 

w:=S!w; 

return wy; 

end function; 

GG:=GL(36,C); 

HH:=sub<Sym(36+*148) |perm(36,148,GG!A),perm(36,148,GG!B)>; 
#HH; 

IsIsomorphic (G, HH); 

perm (36,148,GG!A) ; 

perm (36,148,GG!B); 
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D.9  PrimitiveGroup(5,2) 


G:=PrimitiveGroup (5,2); 
IsAbelian(G); 
CG:=CharacterTable(G); 


CG; 

G; 
xx:=G.1; 
yy:=G.2; 


S:=Subgroups (G) ; 

for iin [1..#S] do if Index(G,S[i] ‘subgroup) eq 
2 then i; end if; end for; 

H:=S[3] ‘subgroup; 

H; 

CH:=CharacterTable(H); 

CH 

#H; 

#G; 

for 1 ain [2..5] do for 7 an [3.2.4] do af 
Induction(CH[i],G) eq CG[j] then i,j; 
end if; end for; 

end for; 

I:=Induction(CH[2],G); 

I eq CG[3]; 

CHEZ] # 

C:=CyclotomicField(5); 

T:=Transversal (G,H); 


#T; 
Az:=[[C.1,0] 3: 2 rn [1.2.2] ]; 
for i,j in [1..2] do A[i,j]:=0; end for; 


GG:=GL(2,C); 
T:=Transversal (G,H); 

#T; 

for i,j in [1..2] do if T[i]*xx*T[j]°-1l in H then 
A[li,j]:=CH[2] (T[i]*xx*T[j]°-1); 

end if; end for; 

GG!A; 

Order (GG!A); 

Order (xx); 

Bia[ PCsi4-0)]> ay aaa Pde] Ty 

for i,j in [1..2] do B[i,j]:=0; end for; 

for i,j in [1..2] do if T[i]*yy*T[j]*-1 in H then 
Bliy 3) s=CH[2) (Ti) yyeP gly 


end if; end for; 


GG!B; 

Order (GG!B); 

mat := function(n,p,D,k) 

for i,j in [1..k] do if T[i]*p+*T[j3]°-1 in H then 

if CH[n] (T[i]l*p*T[j]7-1) eq C.1°2 then D[i,j]:=5; end if; 
if CH[n] (T[i]l*p*T[j]*-1) eq C.1°3 then D[i,j]:=9; end if; 
if CH[n] (T[i]*p*T[j]°-1) eq 1 then D[i,j]:=1; end if; 


end if; end for; 

return D; 

end function; 
GG:=GL(2,11); 

A:=[[0,0] : i in [1..2]]; 
AA:=GG!mat (2,xx,A,2); 
BB:=GG!mat (2,yy,A,2); 
Order (AA); 

Order (Xx) ; 

Order (BB); 

Order (yy); 
HH:=sub<GG| AA, BB>; 

#HH; 

#G; 

IsIsomorphic (HH,G); 

AA; 

BB; 
C:=CyclotomicField(10); 


A:=[[C.1,0] : 1 in [1..2]]; for i,j in [1..2] do A[i,j]:=0; 


end for; 
for 2,7 in [1..2] do if Tit)*xx«T [yj] -2 tn H then 
A[li,j]:=CH[2] (T[i]*xx*T[j]°-1); 

end if; end for; 


BeSliCiteoly St We Piel ie Por a. pytine [be ) de. Blt se0y 


for> end for; 
for i,j in [1..2] do if T[i]*yy*T[j]*-1 in H then 
B[i,3]:=CH[2] (Tlil*yy*T[4]*-1); 

end if; end for; 

perm:= function(n, p, mat) 

/x Return the matrix converted to permutation of S_{nxp}. 
x/ C<u>:=CyclotomicField(p); 

Z:=Integers (); 

s:=[]; 

for iin [1..n] do s[i]:=i; 

end for; 

z:=Matrix(C,1,n,s) «mat; 
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for iin [l..n] do j:=0; 

done:=0; 

repeat if z[1,i]/u7j in Z then if 2! (z[1,i]/u7j) 
ge 0 then w[i]: 

=n*j+Z!(z[1,i]/u7j); 

done:=1; 


until done eq 1 or j eg p; 
end for; 
for iin [ 


p-1)] do for a in [1..n] do 


lege es ( ] 
wlatisxn]:=(Z!wla]+ixn-1) mod (px*n) + 1; 
end for; 
end for; 
S:=Sym(nxp); 
w:=S!w; 
return wy; 
end function; 
GG:=GL(2,C); 
HH:=sub<Sym(2*10) |perm(2,10,GG!A),perm(2,10,GG!B)>; 
#HH; 
IsIsomorphic (G, HH); 
perm(2,10,GG!A); 
perm(2,10,GG!B); 


D.10 = — PrimitiveGroup(5,3) 


G:=PrimitiveGroup (5,3); 

IsAbelian(G); 

CG:=CharacterTable(G); 

CG; xx:=G.1; 

yy:=G.2; 

S:=Subgroups (G) ; 

for iin [1..#S] do if Index(G,S[i] ‘subgroup) eq 4 
then i; end if; end for; 

H:=S[3] ‘subgroup; 

CH:=CharacterTable(H); 

CH; 

#H; 

#G; 

for iin [2..5] do for j in [5] do if Induction 


(CH[i],G) eq CG[j] then i,j; 
end if; end for; 

end for; 

I:=Induction(CH[2],G); 

I eq CG[5]; 

CH[2]; 

C:=CyclotomicField(5); 
T:=Transversal(G,H); 

#T; 

At= iC. 1,107 07-0) 2 a Pee 7G 


for i,j in [1..4] do A[i,j]:=0; end for; 


GG:=GL(4,C); 


for i,j in [1..4] do if T[i]*xx*T[j]°-1l in H then 


A[i,j]:=CH[2] (T[i]*xx*T[Jj]°-1); 
end if; end for; 


GG!A; 

GG!B; 

Order (GG!B); 

mat := function(n,p,D,k) 

for i,j in [1..k] do if T[i]*p*T[j]*-1 in H then 
if CH[n] (T[i]*p*T[j]7-1) eq C.1 then D[i, Jj] :=4; 
end if; 

if CH[n] (T[i]l*p*T[j]7-1) eq C.1°3 then D[i,j]:=9; 
end if; 

if CH[n] (T[i]l*p*T[j]7-1) eq C.1°2 then D[i, j]:=5; 
end if; 

if CH[n] (T[i]l*p*T[j]°-1) eq C.1°4 then D[i,j]:=3; 
end if; 

if CH[n] (T[i]l*p*T[j]*-1) eq 1 then D[i,j]:=1; 

end if; 

end if; end for; 

return D; 

end function; 


GG:=GL(4,11); 
A:=[[0,0,0,0] : i in [1..4]]; 
AA:=GG!mat (2, xx,A,4); 
BB:=GG!mat (2,yy,A,4); 
Order (AA); 

Order (xx); 

Order (BB); 

Order (yy); 
HH:=sub<GG| AA, BB>; 
#HH; 

#G; 
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IsIsomorphic (HH,G); 


AA; 

BB; 

C:=CyclotomicField(10); 

As=[ [C.1.7:0;-0, 07) 2 an ely 7 bor a ga can El. 4] 
do A[i,j]:=0; 

end for; 


for i,j in [1..4] do if T[i]*xx*T[j]°-1l in H then 


A[li,j]:=CH[2] (T[i]*xx+*T[j]°*-1); 

end if; end for; 

B:=[[C.1,0,0,0] : i in [1..4]]; for i,j in 
[1..4] do B[i, j]:=0; 

end for; 

for i,j in [1..4] do if T[i]*yy*T[j]*-1 in H then 
Bia g)ssCh 2 i(tialeyyell j=l 


end if; end for; 
perm:= function(n, p, mat) 


/*x Ret 
Of Se. 
x/ CK< 
Z4:=Int 


turn the matrix converted to permutation 
{n*p}. 

u>:=CyclotomicField(p); 

tegers (); 


s:=[]; 


for: 1 


in [l1..n] do s[i]:=i; 


end for; 
z:=Matrix(C,1,n,s) «mat; 


wi=(]; 


for 


in [1l..n] do j:=0; 


done:=0; 


repeat 
ge 0 


E af Zl, a) /uoy ine a<then Ti 2) (z.l,2):/u- 3) 


then w[i]:=n*j+2! (z[1,1i]/u*j); 


done:=1; 
end if; 
end if; 
a leg 


until 


done eq 1 or j eq p; 


end for; 


for 1 


wlati¢en]: 


p-1)] do for a in [1..n] do 


deine - [Lek ] 
=(Z!w[a]+ixn-1) mod (pxn) + 1; 


end for; 
end for; 
S:=Sym(n*p); 
w:=S!w; 


return wy; 
end function; 
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GG:=GL(4,C); 

HH:=sub<Sym(4+*10) |perm(4,10,GG!A),perm(4,10,GG!B)>; 
#HH; 

IsIsomorphic (G, HH); 

perm(4,10,GG!A); 

perm(4,10,GG!B); 


D.11 ~=PrimitiveGroup(5,4) 


G:=PrimitiveGroup (5,4); 

IsAbelian(G); 

false 

CG:=CharacterTable(G); 

CG; 

xx:=G.1; 

yy:=G.2; 

S:=Subgroups (G); 

for iin [1..#S] do if Index(G,S[i] ‘subgroup) eq 
5 then i; end if; end for; 

H:=S[8] ‘subgroup; 

CH:=CharacterTable(H); 

CH; 

#H; 

#G; 

I:=Induction(CH[2],G); 

I eq CG[5]; 

true 

CH[2]; 

T:=Transversal (G,H); 

T; 

C:=CyclotomicField(3); 

As=LPCs150 p040,,0)) So an [le eS; 

for i,j in [1..5] do A[i,j]:=0; end for; 
for i,j in [1..5] do if T[i]*xx*«T[j]°-1l in H then 
A[i,j]:=CH[2] (T[i]*xx+*T[Jj]°-1); 

end if; end for; 

GG:=GL(5,C); 

GG!A; 

Order (GG!A); 

Order (xx); 

Be=[ [C.17°07050,-010 a ane [Teed 13 

for i,j in [1..5] do B[i,j]:=0; end for; 
for i,j in [1..5] do if T[i]*yy*T[j]*-1 in H then 
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Blt, J) s=CHl[2] (lt) +yy*iT [9] °-1)3 

end if; end for; 

GG!B; 

Order (GG!B); 

GG:=GL(5,7); 

mat := function(n,p,D,k) 

for i,j in [1..k] do if T[i]*p*T[j]°-1 in H then 


if CH[n] (T[i]*p*T[j]7-1) eq C.1 then D[i,j]:=4; end if; 
if CH[n] (T[il]l*p*T[j]*-1) eq C.1°2 then D[i,j]:=2; end if; 
if CH[n] (T[i]l*p*T[j]°-1) eq 1 then D[i,j]:=1; end if; 

if CH[n] (T[i]*p*T[j]°-1) eq -1 then D[i,j]:=-1; end if; 


end if; end for; 
return D; 
end function; 

= [0,007 0,013. 2 arm [16.5] 14 
hy eee 
mat (2,yy,A,5); 
AA:=GG!mat (2,xx,A,5); 
BB:=GG!mat (2,yy,A,5); 
HH:=sub<GG| AA, BB>; 
IsIsomorphic (HH,G); 
C:=CyclotomicField(6); 

= [ee ,:0'-0;'07 Oi) sa an. [ees 3 

for i,j in [1..5] do A[i,j]:=0; end for; 
for i,j in [1..5] do if T[i]*xx*«T[j]°-1l in H then 
Ali, 3] :=CH[2] (T[i]*xx*T[j]*-1); 
end if; end for; 
GG:=GL(5,C); 


air: 
=[[Cv1,-0,-0,,0, 0]3° a an Phas.) 1% 
as 1,j in [1..5] do B[i,j]:=0; end for; 
for i,j in [1..5] do if T[i]*yy*T[j]*-1 in H then 
B[i, 5] s=CHL2] (TLL) #vy*T [9] °-1); 


end if; end for; 

GG!B; 

perm := function(n, p, mat) 
/x Return the matrix converted to permutation of S_{nx«p}. 
x / 
C<u>:=CyclotomicField(p); 
Z:=Integers (); 

s:=[]; 

for iin [1l..n] do 

s[i]:=1; 

end for; 
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z:=Matrix(C,1,n,s) «mat; 
w:=([]; 

for iin [1l..n] do 

j3:=0; done:=0; 

repeat 

if z[1,iJ/u7j in Z then 

if Z!(z[1,i]/u7j) ge 0 then 


wliJ:=n« j+Z! (z[1,i]/u7j); 

done:=1; 

end if; end if; 

ji=J3tl; 

until done eq 1 or j eq p; 

end for; 

for 1. in eax( psy hao 
..n] do 


[dk 
for a in [1 
wlatixn]:=(Z!w[la]+ixn-1) mod (pxn) + 1; 
end for; end for; 
S:=Sym(n*p); 
w:=S!w; 
return wy; 
end function; 
perm(5,6,GG!A); 
perm(5,6,GG!B); 
HH:=sub<Sym(30) |perm(5,6,GG!A),perm(5,6,GG!B 
#HH; 
IsIsomorphic (HH,G); 


Vv 


D.12. PrimitiveGroup(5,5) 


G:=PrimitiveGroup (5,5); 
IsAbelian(G); 
CG:=CharacterTable(G); 


CG; 
xx:=G.1; 
yy:=G.2; 


S:=Subgroups (G) ; 
for iin [1..#S] do if Index(G,S[i] ‘subgroup) eq 6 
then i; end if; end for; 


H:=S[16] ‘subgroup; 
CH:=CharacterTable(H); 
CH 


#H; 
#G; 


for iin [2..5] do for j in [3..7] do if Induction(CH[i],G) 


eq CG[j] then i,j; 

end if; end for; 

end for; 

I:=Induction(CH[3],G); 

I eq CG[7]; 

T:=Transversal (G,H); 

#T; 

C:=CyclotomicField(4); 
As='|[C3:1,0;-05,0,:0),-0]) 4.2 On. [4. 2 6] J} 

for i,j in [1..6] do A[i,j]:=0; end for; 
for i,j in [1..6] do if T[i]*xx*T[j]°-l in H then 
Ala, 3) e=CH SIE Pa laxxe Tl) ol) 

end if; end for; 

GG:=GL(6,C); 

GG!A; 

Order (GG!A); 

Order (Xx); 

Be=[ [C4L, 07:040,0,-0)]). 2 2 ane [12.6] )4 

for i,j in [1..6] do B[i,j]:=0; end for; 
for i,j in [1..6] do if T[i]*yy*T[j]*-1 in H then 
Bli, 91] s=CH(3] (Tiileyyet lj) 1); 

end if; end for; 


GG! 

mat := function(n,p,D,k) 

for 1,7) in [1..k] do if T[2]*«p*eT[j]°-1 an HH ‘then 

if CH[n] (T[i]l*p*T[j]°-1) eq 1 then D[i,j]:=1; end if; 

if CH[n] (T[i]*p*T[j]7-1) eq C.1 then D[i,j]:=2; end if; 
if CH[n] (T[i]l*p*T[j]*-1) eq -C.1 then D[i,j]:=3; end if; 


end if; end for; 
return D; 

end function; 
GG:=GL(6,5); 
A:=[[0,0,0,0,0,0] : i in [1..6]]; 
AA:=GG!mat (3, xx,A, 6); 
BB:=GG!mat (3,yy,A, 6); 
HH:=sub<GG| AA, BB>; 
#HH; 

#G; 

sIsomorphic (HH,G); 
AA; 
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BB; 
C:= 
A:= 


Lp 


end if; 


B:=[[C.1,0,0,0,0,9] 


TT. [lee 36 
end for; 
For 1,7 


end for; 


CyclotomicField(4)j; 
[C.1,0,0,0,0,0] 1 ant [ae 
] do A[i,j]:=0;end for; 
in [1..6] do if T[i]*xx*T[j]*-1 


then A[i,j]:=CH[3] (T[i]*xx*T[j]°-1); 


a, an. [Ls 


] do B[i,j]:=0; 


in [1..6] do if T[i]*yy*T[j3]*-1 


-6)]; 


-6)]; 


Bli,j]:=CH[3] (T[i]*yy*T[3]*-1); 


end if; 


end for; 


perm:= function(n, 


/x Return the matrix converted to permutation of S_{nxp}. 


P, mat) 


x/ C<u>:=CyclotomicField(p); 
Z:=Integers (); 


s:=[]; 
for iin 
end for; 


[1l..n] do 


s[i]:=1i1; 


z:=Matrix(C,1,n,s) «mat; 


w:=([]; 
for i in 
done:=0; 


repeat if z[1,i]/u7j in Z then if 2! (z[1,i]/u7j) 


[1l..n] do 


j:=0; 


ge 0 then w[i]:=n«j+Z! (z[1,i]/u*j); 


done:=1; 
end if; 
end if; 
fem gly 
end for; 
for i in 
wlatixn] 
end for; 
end for; 


until done eq 1 or 


[ p-1)] 


S:=Sym(n*p); 


w:=S!w; 
return w 


y 


end function; 


GG:=GL (6 


1C); 


IsIsomorphic (G,HH); 


perm(6,4 
perm (6,4 


,GG!A); 
,GG!B); 


do fora 


lesa 
(Z'w[a]+ixn-1) mod 


in H then 
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